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Figure 122 Special Registers 
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Container 


container . 


addresses 


size is a field size Cin number of bits) necessary to 
~ contain the maximum value required for that fied. for example a 
size of 5 bits atlows a field value ta house 32-bit 
(0-31). At cont ainer sizes in the COBOL74 S-machine | 


are of fixed length and are: 


OP 
LEN 


“OIsPe 


“SEG. 


BADDR 


ew 


| data Length op 1 dee 
ddee Giepbeceeent es 20. bits 
‘data segment number a 10 bits 
branch address at bits 


| _fepee a - 20 bits 


PROGRAN PARAMETERS 


‘The parameters ‘pertaining to a particular program are listed — 


betows 


4a 


eo Pe, 
Ze 


‘pase: welutive address of Data Seanenk Zero. 
-Data Segment Zero address of Collate. Table 
Base relative address of Perfora Stack 


Maxisue size of Perform Stack - 
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Each cOBUL 7 4 Ssraemicr ion, ‘consists. 5h. an Soper ator ‘lanes. 62 


arguments consisting of a variable number of bits. a antes 


and interpretation of these. arguments is specified the 


S*operator and is described in detail by the iit ied ae i a the 


ee eae operatorse An example of one such Instruction format p= 


itlustrated below. 


OP1 — OeND- Te cop | 
C9) CVARTABLE) (VARIABLE) 


SOR aT ye ae eT | -, 
a eae | a 
AUP ce, af 1--COP IAF O OR LITERAL 
A | | | 


“1-"coP INFO OR LITERAL 


S“OPERATURS 


ale 3° “operators are encoded in. a “obit a ‘oper ator denoted as : OPL. Z 
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COP AND OPNO 


A COP is” an inline descriptor. pointing to a data item or a 


literal. An operand COPND) may be an inline COP or an intine> 


poe “ALL data items are placed in data ‘segment zer Oc 


There are three types” o f Geseeiacsreus: a short COP» a long cop 


with. segment nee “and a. long cor without sequert ea 


Short COP 


| Format: 


te Ac bata LENGTH 1 DISP |} 


ee | 417 


OA short cop ‘cannot be. rgeneeetes for. ‘subscriptss indexes» IPC 
data» or literals. Because a short COP does not contain | 
information. on data typess it can be used only with the following © 


Sronerators. 


TMVA CPN 
- “WN =cez. 
emvz = ENC 


AERA ENCE 


Long COP With No Segment Number 
Wocorests 


el Se aan ioe | 24 ee ve 


a 10° tv 8/4 v ‘MSIL ‘DATA LENGTH 1 ‘DISP crest unchanged tA ee 


te LITERAL et 


his.’ cop ‘can be used. tore any faeae ‘except ‘pc. datas. AD ‘description: 


Coane the fields s found in ‘the following | ‘section oon ee 


oa cop. cannot ‘be used: for ‘acecaved oo is en for IPC dete. 
| - Descriptions of the fields are provided. in the following section. 
on ANLINE DESCRIPTORS. Te fie | : : | 7 a oe : 


Boe “10° see Bh. Ba sae 


ae A hateialatadeledcahatakadarlatentolatetetetataatataietatatetatetatet telekatebetetetakatatated By, is 4 
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‘cOBOL74. INLINE “DESCRIPTORS 
an intine descriptor must provide for ‘the following capabilities. 


“Multidimensional ‘ables with unlimited subs cr ipting/ indexing 
" (the real. Limit rs 48). _ 


«aft “Runtime bounds~ -checking on each ‘ian of a table. | 
% Variable length data items aa. an OCCURS DEPENDING clause. 
- ‘Shared uata addressing. 
, The specification of COUE-SET. | | 
A yicdapis length data item may be declared in COBOL74 by using 
an Ee CURS DEPENDING clause. | es So, 
Scaeeue 
ne 2 | ~O1 A. ws 
NM eS 02 «28 PIC Xo 


02 C NC 5 10.10 TIMES DEPENDING oN Ve. 
‘03 D FIC x OC 29 TIMES. a 


In ‘this data ivory fer eens is a variable nen item whose Length 
as determined as. foliows: | Po | a 7 
LENGTH CAL LENGTH (B] + C v * LENGTH cd »- 
where. 3 LEG ve LEG. ‘10 | | 


When A aS referenced. only that part of Bice defined by the 
Sees oy is used in any. operations 7 ee ee : 
When Cc or 0 are petepeneecn-tiele Length is noe variable -- but V~ 


“must be bound=checked to rey that ‘the requested ae element 
existse _ _ : Sg BES ee, 


The restrictions: | | 
wae data “description entry. phat: contains an occurs DEPENDING 


_ clause “Pay. be followed only by entries that are subordinate 


“se a occurs - CEPENDING clause cannot be soecified in a dat a 
_ description entry that) describes an. item — whose size is 
ee eee, 2 OY eee PoE _ a oe a 


~ BURROUGHS CORPORATION | one i He oe Be, COMPANY. ce en 


contains an Occurs DEPENDING clause. — 


IMPLEMENTATION STRATEGY 


COBOL 74 | satanguage.’ ‘employs a continue flag to tell. the 


interpreter that more. COP information is specified. | 


“The same bounds-checking information is needed when referencing 
either a variable length item or the first dimension of a | 
subscripted variable. contained in a variable length item. | 
Dimension. information required for the subsequent dimensions is | 


ae oe from ie which is. required for the. or dimension. 


) When. a ‘variable length item is referenceds “the COP of the OCCURS aoe 
— DEPENDING operand is provided following the gis an data*name. 


The operand is bound=checked to verify that it is within the 
cpecunies integer eee: =o 7 * = 2a - 


DATA LENGTH e 


The- ‘data “penget. field is Lh bits. wide. and contains. the length of eA 
the. data in digits. If this field is the length of ia variable 
Length. item» the field contains the dength of that part of the ~~ 
table which is not variable. The actual tength is calculated at © 


vuntime aa the pecenucee an (see DEPENDING iba achisee ou em 


_ MULTEPLE-ENTRY-FLAG 


. The. -MULTIPLE- ENTRY- FLAG. is true when indicating: that multiple 
entry attributes are associated with. this entry and false when 
indicating otherwise. When true» the next entry(s) contain(s) : 
the necessary OCCURS DEPENDING ane one subscripting or indexing — 


— attribute: information. — 


SHAREDDATAFLAG 


se the - SHARED-DATA- FLAG is true when, indicating that’ this” entry. bua eo 
ne data item passed by a CALL statement. of another program and. 
false when indicating otherwise. When trues IPCO- INDEX specifies | 


the oly ae on the IPC.DICTIONARY qeeE INES for this. ee 


| tier 


Lf this. flag is. sete then a Literal follows after the. DATA i 


jf ietis 
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ee re ‘restrictions ensure _ that — ‘the. deseript ior: of the first | 
- subseript/index associated with a. variable 1s othe only one: that — 


\a 
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— OEPENDING“FLAG 


fhe DEPENDING@“FLAG ¥s true when indicating that an QCCURS 
VEPENDING operand is associated with this variable and false when 
indicating otherwisee When truer the bounds~checking and factor 
information follow in the entry. This is followed by = any 


subscripting or indexing information that May be necessaryaea 


DEPENDING ATTRIBUTES 


“When the DEPENDING-FLAG is trues the attributes of the DEPENDING 


operand are encoded in LOWERBUUND=O0- UPPER*BOUND “0% and 


 FACTOR@O» which are binary fields. | LOWER“80UND"0 = and 


UPPER"BCUND"O contain the integer range of the DEPENDING operand 
while FACTCR"C ‘contains the digit displacement between elements 
of the table. a a 3 


The value of the CEPENDING operand is verified to be greater than 
or equal to LOWER“BOUND“9 and tess than ar equal to. 
UPPER*BOUND"O0. if the value is outside the ranger then an error 


communicate 1s- issued. 


If CONTINUE“FLAG-C is false» then the value of the DEPENDING 
operand 15s multiplied by FAC ICK-0> 1s added to the data length 


specifiea in the primary COP entry» ‘and decoding of tne multiple _ 


entry. attributes is terminated. In this case» the data length 
oyesvaee In tne CGP entry is the fixed part of the table. 


rf CONTINUE=FLAG=0 is trues then = subscripting or indexing 


information fotlows. . One ts subtracted from the value of the 


GEPENDING operand and. is. multiplied by FACTOK“0 to form a new 


ugper=bounde In this case FACTOR71 and UPPER“BOUND“1 are omitted 
from the entry because their equivatent is represent by FACTOR-O 


and NEW. UPPER.»BOUND. 


ieuciaenae 


If the SUBSCRIPT“FLAG is false» it specifies that indexing 
information foltows and that the factor associated with each 
agimension of the table is omitted; if it is true» it specifies » 
that subscripting information follows for each dimension of the © 
table. | 7 | 


| Factor and upper= Saound: fields are paar. Factor is the digit 
displacement between elements of the table.  Uppersbound is the 
maximum digit displacement allowed for this dimension of the 


tavle. | UPPER-“BCUND“0 differs from the other upper~bound fields 
in that tt Pep CesentS the maximum aioe of ve VERENUaN operand. 
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dimension of the variable. The. continue=flag is true until eee 


Last dimension has been reached. when — thes “continue flag” 
aes decoding is sushcaikbiaee en ee | eae | 


— Each | subscript — valae: is: ‘obtained and one is subtracted from it. 
If the result is less than zeros an error communicate is issueds — 
otherwise» the result is multiplied by its associated factor and — 
the product is compared. to the corresponding upper= "bound. — If the 


product exceeds the upper bounds an error communicate is issued} 
otherwise the. product | is added to. the address: ‘displacement. 


INDEXING | 


. flecause an ‘index. vate is. seewueuiabien by its. associated. factors 
the. factor required for _subscripting is omitted from the | 
attributes. An upper-bound is required for each dimension of the | 


vartable. The. cortinue= flag iS: true. until the tast dimension 


reacheds When the continue= flag is false» | decoding | cae 
re, | oe ee ee ee =e, ite | 


Each: index, value is. obtained “and if it is tess than zero or. 
greater. than the “upper-bound> — ‘then oo error communicate is 

issueds = otherwise the  vatue. added to the address 
displacement. The format of the ahaone consists of a 4- bit: sign: 
2 nek romes by seven ee bit decimal. porate ae | . — 


a 
ae : a 


; a * 
: } 
} 
F , % af 
: ms * 
Senn” te 5 


a oa ee er ae «et ¢ 7 re 
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MODIFIED INLINE COP ENTRY FORMAT | 
The format of an intine COP entry ist 


| 4 MULTIPLE | 7a aie LITERAL 1 DATA LENGTH 1 
1 4/6 | ENTRY {| SIGNED 1 DATA “4 FLAG ot. IN. t 
PoE FLAG EFL AG DIGISs | 


2200 ae. ee 852 2 geeenaa--BIT POSITION 
1 SEGMENT # 1 DISPLACEMENT IN 1. | 

1 OR Love 4 

1 IPCD INDEX 1 DIGITS. 


aaa wae ee aa moun ace naonaste went ant ane ean eae 


1 DEPENDING cop-0 «-s«LOWER- UPPER= FACTORS 0 ‘1 CONTINUE" 
1 FLAG  .—s«BOUND=0 =——s BOUND-0 { FLAG“O ~ 
Ay ee jf BITS) (20 BITS) C14 BITS) 1 cL) 


at \ “Geeoseawes, ge ease Seeas Se eee 
( ) 
i 


2 oo | : oS 
— lig VALUE Sy ee 


“OMETTCO If DEPENDING FLAG= oa 


OMITTED IF DEPENDING-FLAG= i 


: oer enn n/\ ere seccern- 


= SUBSCRIPI= 7 “coP=1 “FACTOR=1- “UPPER- -CONTINUE= 
FLAG —BOUND“1 = FLAG-1 
say Cte BETS2. (20 BITS) C1) 


. ale + Sena nanan ee + mm we am oO - 28 ma oe a men ee a we ew 8 we ee asm ae a 


ca EH OMITTED IF INDEXING 
. nk He, Y | suascaiFr OR INDEX VALUE 
; INDEXING 

SUBSCRIPTING 


oot 


See ee ee ea egannaa ea one 


| CORN FACTOR- N UPPER- CONTINUE-~ 
—? re : — BOUND“N ° FLAG“N 
| = * C16 BITS) | C12 BITS) C1) 


oan + om me + =m we am an 7 & «on an om am ap OF op seleetatetetelaietiteteter 


+ wateeiee if indexing. 


subscript or index value 7 


omiaa letersi acntdnertaniiilinthsiah abdul Lticldbeen Stee Es CS GRA aD ota ee AE fis ithe tot erento tet San DR at a ed ies besnue hi niet a dhbenge inane tment iif late Tidal Tas yee ane do 
: . ee : . 
, : 


ee eae a a ete, Yat es ee 
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SEGNENT WUMBER 


Segment. ‘number is expressed in binary and epecut es the data 


= segment number of the operand. It is 10 bits in pena hs - 


“DISPLACEMENT 


Decnice wen’ is expressed in binary and specifies the digit : 
displacement of the data from the base of the data segment. CALL 
data is stored beginning at. an address which modulo ut Be Must: 


equal zero. The container size is 20 bitse 


eran ag hg yt at ta’ ware 5 re Rl Seen th ame ah ay Pale ed seb Jey t ae Genk cst see ieee ye sels ele Lacie oe et deleted ae setan ages an ST suchas wees tecaad “whantellad “Rs acon tal hy talinad@ins olf 3h a HF nhs 
ie tps Siting Sta a Sony Se, : ott Te sega ile tan be uae on pale nd yon ag eR eh py aoe UY po le edie AD Si seal lal ta hg YR Gy Aaa ee eee 
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INSTRUCTION SET 


ARITHMETIC 


“ ‘Argumerts 


Name - > Mnemonic 
INCREMENT © 9° SENC OPNOLr COP 


HOO" © Sin 3, ~ RODE UPND1» CUPL» coP2 


SUBTRACT. 

| PULTIPLY: 

- pIvIDe | : 
-pIVEDe SPECIAL 
eee ae %.% 


DECREMENT BY ONE 
| DATA MOVEMENT | 


Name | 


HOVE ALPHANUMERIC 
WOVE SPACES 
ROVE NUMERIC 
‘WOVE ZEROS 


“CONCATENATE 


fF corr 


ert WITH EXPLICIT Mas 


DEC) 


DECREMENT ean | Pe OEE 
) $uB 
MULT 


ahs 


DIVS 


INCL 


Mnemonic . 


i) aan 

ws 

ee wea 
eT ae 


fOTE 


— OPNDA» COP, 


UPND1» OPND2+* COP1 


OPNOL» CUPL» COP2~ 


OPNOl» CUP1, COP2 


“OPNO1+ CUPL» COP2 
copa oo 


a  COPL Oe 


‘Argumerts — 


cOPi» OPNOL 


cop, 

COP» OPNDL 

copa | ae 

Ne COPLy OPNDOr veer 

-OPNON ” | 
—- opNody CoPay DADOR 


OPND1» CUPL» MASK 


ey: 


COMPARE FOR SPACES” 
COMPARE FOR CLASS 


| COMPARE REPEAT | 


 Ruawolehs! CORPORATION: 0". 


COMPUTER SYSTEMS GROUP ss 


BRANCHING = 
oe 


ekancH ON OVERFLOW ee 


SEP ‘OVERFLOW 


BRANCH UNCONOT FTONALLY 


PERFORM ENTER 


PERFORM EXIT 


ENTER 
co To DEPENCING 


AL FERED Go To PARAGRAPH 


| ALTER. . 


2. SANTA: BARBARA A PLANE 


Mnemonic | 


BUFL 


SOFL 
BUN 


PERF 


PXIT 


NTR 
OXTT 


“GPAR 


aLTR _ 


sinieisate Stdiaeee-: 


Name | 


COMPARE ALPHANUMERIC | 


COMPARE NUMERIC 


COMPARE FOR ZEROS 


— Mnemonic 


— ss ee se oe Se 


— CMPA 
CMP, 


— -CMPZ | 
CMP E 
— CMPC 


— SCMPR- 


“ a1s00/81700" CUBOL74 S"LANGUAGE = =—-_-§ 


Ve BADOR 
ie: 


— BADDR © 


—  BADDR i. | vs - 


—COPLe Le DBADDROr.ees 0 


COP Ly os ‘BADDR 


“COMPARY. YCONFIDENTIAL = 


SP S$. 2222, 3069 coy oN 


Arguments — 


Ke BADDR 


—OBADDRL 3 sta at eG 
-— DADOR 


— “OADDRe ‘AON 


Arguments 


. OPND1» GPND2» Re | 
— OPND Ly. OPND2> Re 
—BADDR 
copay Re BADDR 


os COPLS Re BADDR 


eee coir ee 


BADR 


= 


OINSPECT. 


STRING Oe oe 


ic nati Sess Nini ets gril, tat oR ue tice toh Baht ed SUN Etna hth dct slides peepee, alan ists sé dt ds as dan aii ca an ip iD as a el i i il DS aa i aa cg 


COMPUTER SYSTEMS GROUP. 


SANTA BARBARA PLANT — 


COMPARE COLLATE ~~ CPC 


MISCELLANEGUS 


| CCHMUNICATE | ane 
Loan COMMUNICATE. REPLY — 
walt COMMUNICATE. = REPLY 
CONVERT | 
MAKE. PRESENT one 

HARDWARE. MONITOR” 
FILE STATUS. er - 

"BINARY SEARCH ae 

BINARY SEARCH ASCENDING HIGH BS 
ee 


BINARY SEARCH DES ENDING HIGH. 
aemietac teams ceieat ace, 


— 


DESCRIPTOR SETUP 


- INSPECT SETUP 


suliathusn eases antes Sal SUA tS sacle 


Sf, Met 


“COMPANY CONFIDENTIAL 


‘nseooreurs COBOL74 S“LANGUAGE 


- finemonic 


“Mnemonic | 


oe STRIE eee 


(PsS. 2222 3069 (Bd 


SOPHO Le | COP2> ae 


BADDR 


Arguments 


DADDR 


- COPL» DADDR» N 


COPi» DADDR 


‘OPNOL 
RW copa ao se 
obi» ‘CeNDs KEY. ADDRe coPZ 
COP Lr CPN? KEY. ADDR> cUPZ- 
COP OPNDY KEY.ADDRy COPZ 


COPE y OPND + 7 KEYSADOR? cope 


Arguments 


— pADDRe copy 

vir Ve. FLACy 
“ panDaLe COPLy ‘COPee 

| OADD Re oPnot 

“ie DADDRI» ‘DADDRE- 
ee ‘OPADL> ‘OADDRI, 


-corty “CPNDZ> BADDR : 
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SANTA BARBARA. PLANT Fegeaeeek AAS LEAT ar era ene (2222 3069, 9a 


cane Serur CEES ae ad Vee DADDRI» peor 


we ed A NSTRING ew oe We ce te BADDR? 


“DADORIy copay DADDRE eee 


: (kame OA “Mnemonic Ae i Reet og 


“eon ee we cUPLy BADORI 


opramazeo oP. coves: 


Bight ‘operators | “nave been optimized for, improved ao 
-netuge the. following: data as a part. of ‘the, opcode. - ot sush 


The: type of data. item (8- bit. or an eee ohn Bee ey 
“Signe or unsignea date eee 


Anfo- about co Logicalsize ee eres 
(operands. oe ae er a ee ee 


oe following notation. is. cused to describe the opcodes. 


“Signed” or “unsigneo data nem 


pie 


oa if ‘the LOGICALSIZES, of two operands: are. a anual ee 


| ere if. the | “LOGICALSIZE -COPNDL is greater than. the 
“a SE ROGICALSTZE: re ye 1h a ee ee ee 


 Ocodes acietii09a cat 88 


ek othe. LOGIALSIZE. ef. the. ‘second ‘operana. é te geweter than thar ee: 
Kchgte peeaeneeeee 7 Of. ‘the: first Eee oy tee sind, a Sete 


beheld oe peeled byes Eb cait Ten getter dL erati koo Sea ase sr tant ll Select its oeunnreshaasbthienall ben i Sood aha tsp en pat tet nancial ea ee sestea 7 j ‘ 
se Paka cesta a cate betas ahaa Sa orth se anaes aly pataesttl beta coe pvtac ject a bade a areata ets _Glesdammde patriot kemaah acerca pesos depo lates ad ih a ata 
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nales a€1901104 cat 8855 


the- LOGICALSIZE of the first Sper ange -c,. 


- Qpeode: .a€1)0111010a CAT 8S — 


INC 


 Qpeodet aC¥)G019 CAT 88SS CA aC1)11a 


INCL 


‘Qpcode: a(1)G1111002 CAT 8S __ 


NVA 


Opcode: aC 1p0oLa | caT 835S=> 


The first operand is the destinations and the second operana 


is the sources: — 


YN. 


“Opcode: 3c1)010a cat ‘88SS=> 


The. hMieue OPERAND 1s the destinations the second operand 1S 
The: SOUrCE. — | , | | | 7 


oe, 


Qpeode: a€1)0111011a CAT 8S) 


The LOGICALSIZE. of the second aaa saat ine always greater than 


ARITHMETIC OPERANDS AND INSTRUCTIONS, 
In, general» operands can have: any of the following formats: 


os unsigned ee 


an Unsigned. 8- ‘BIT. 


Ya Signed 4-BIT Csign is MSD). 


oT Signed 8- BIT (sign over MSD). 


Any restrictions concerning) ees types oe sperands pre ered an an 
operation are specified under the deserapevod of he pac aeuaae 
ondrattons | 7 | : —_ : 


ALi isl de are addressed by pointing to. the most significant bit 
of the most significant en Sea GL ame the case oe | signed © 


field 1S the ns 


Alt fields, are considered to be comprised of decimal integers. 
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; oN | 
The absolute value is stored if the receiving field is “unsigned. ed 
“unsigned fields are ‘considered. positives — 
Suhen eignee: ret tT a is specified. for the receiving field of any 
arithmetic operations the sign position is set (1100) for a 
positive result ang to. 1101 for a negative result. 
a-BIt Spcrands. are interpreted in units of. 4 bits. When a a ued: 
operand is specified» the sign is interpreted as a separate and 
leading (leftmost) 4=- By es oar is not. inctuded in the 
statement of pencaue eh oe | ” oe ge A ee 
é- BIT operands are Fribeepnaced in units ot: 8 bits. When a saanee.: 
operand is specified» the sign is interpreted as being contained 
in the leftmost 4 bits of the [onCeoee S-BLT UAT te “a8 | | 
The length of the: operand field specifies the nuaber of 4 “BIT. 
When” 8- ‘BIT. units are specified for. the. receiving field of ane os 
arithmetic operation» the leftmost 4 bits of each. 8- BIT unite. 
| axcapt the unit carcying, a ‘signs is. set to Lit... a 
eo wie of: an B-BIT unit ais carried in the ‘rightmost: co bits: wee 7 
the unit. Its value is as defined betow for the 4-BIT. unite Pie. a 23, 


— Leftmost. 4& bitses except. for a signs — are. ignored. — The value ang AAG 
signe interpretation oF a 4-BIT. unit. is as. Poth ous): age 


: : 
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unit “9 Value Sign 


9000 - | O- 

- COOOL © i 
oo... §010 0. 2. 
— GOLL 3. 
—G100 | 4 

C101 a 
-OLle?: 6 
as 0 a ae ee a 
10690 ie) 


7) ne oe 
—. 1010 UNDEFINED) 
1011 UNDEFINED 
1100.0 5 UNDEFINED 
2108 UNDEF TNED 
«1220 UNDEFINED 
Ay AEE 7: MUEE EREY * 


ee ee ee 


fh. Beeston ane: ‘subtractions results generated when the size of 
the result field is not sufficient to contain the result» are not. 


- specified. i. when | the result field is Longer than the tenath of 
. the result yr. leading zero units. are stored. 


In three-adoress. acay prees address subtracts and. i | aul cies 
total or partial overlap of the first. two operands 1S peeee at ceded” 
' Results generated when the result field totatly or. partially 


goverVaps either of the npeaeee fields» are not specified. 


-<Ta -twor gddeexs “aaa ane “subtracts. ‘total ‘overtan! is permitted. — 
Results generated when the result field. partially | overlaps the. 


No. over Lap of operands or result. fields is permitted in divide. 


first operand fields are not specified. . Note that total ovens 
op APNG, that the two fields are Identical. -_ 7 


Results © generated | under any conaition of overtap are not. 


specified. 


| oS HURROUGHS CORPORATION. 
COMPUTER, SYSTEMS GROUP 


ADD THREE ADDRESS 


Format: — 


PererrrererTrrrrerr re Tete | 
* ADD OPNDL» COP1, COP2 *« 


kee Raa EKER RKEKKKKEK 


Function: 


eesraicely, add an addend denoted by OPND1 to an augend denoted 
by COP1 and store the sum in the fet denoted by aaa OPNDi> 


eens CcoPp2 must be 4- bit items. 


eG a “COMPANY. Y CONFIDENTIAL 
meek —erm00ren700 COBOL7 4 S- nee ae 


hk te te te te he he 
* ADD «* 


Rah hh hk 


oe i ee er ee | rr res eae a ee ee 
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SUBTRACT THREE ADDRESS 
| = | - eee 


* SUB * 


khkaetkketk | 


Format: 


SPTTTETTTITT TTT TT TTT ttt tT ee 
- & SUB OPND1s OPND2> COP1 *. 


REE RRRERRRR RRR 


“Function: 


Algebraically ‘subtract: a. subtrahend dencten: oy —OPNO1 trom a 
- minuend denoted = by OPND2 and store the difference In the bvehe 
denoted by COPi. GPNDL» OPND2 and COP1 must.be ATONE NLRs | 


/— puraucHs c CORPORATION. ee ae _ “COMPANY. YCONFIOENTIAL = 
COMPUTER SYSTEMS” GROUP. ie /— ats08veiz00" COBOL7 4: S*LANGUAGE > ££ 
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ADD. TWO ADDRESS 


kkk ak ht 


# INC *# 


hehe eke ke 


Format: 


errriere Tere ee 
*# ENC OPNDL» COP1 * 


KRHRAARKKKKARKKRKRKEKK KK te 


Function: 


spatiesientie add éan addend doneeen ie OPNDL to an sagen denoted | 


by COP1 and store the sum in the field denoted by COP1. 


INC is an optimized Scop. -OPNO1 ana: coPl must have the same. data 
unit types that is» OPNDL and COP1 both must be either 4-bit data 


items or 8=bit  aata items. The format of the opcode is 


"0108855". For examples if OPND1 and COP1 both are unsigned 


8-bit items» then the opcode is *010110011" or 179. | 


«BURROUGHS CORPGRATION ANY CONF EDENTIAL 
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SUBTRACT TWO ADDRESS. 


tk ke te te he te he 
* DEC * 


KkeKke&RK a KK 


HERA RR RRR RRR RE REE 
* CEC OPND1> COP1 * 


kkhthkhikkkk keke tke 


Function: — 
Algeoraicatly subtract a subtrahend denoted by OPNDI from a 
ee _ minuend aenoteg by CGP1 and store the difference in the fiela 
(|. Sapaten by COP1. OPND1 and COP1 must be 4-bit items. 


a RR ead a cash Oi nak matali aaa iS ak pam hieirssint Dil ota cited a antl sa fel alia baka Eta ai DAT aa bi eR a pal a pass ncaa stale al te reed a tea nds Maia oad ish f en piace At ahi lind dbansmrabvas: 


- guaROUGHS ¢ CORPORATION 
COMPUTER SYSTEMS GRouP 


ae 


Kk the k 


Format: 


Serrvecerrcetrcrrcrrrtreces 


- & MULT OPNDi»s COF1> COP2 * 


TARE RE KER ERR RERERARER REE 


| Function: 


Mimebeoieati multiply a. wale opti cane. denoted by CUP1. by a 
multiplier denoted. by. OPNOL and store. the product in tne fielo 
| denoted by. COPCe B: | : — Sh than) We Bye | 


the eae: field Veagth: is. the sum ee the tengths of the two 7 
operands and. must be denoted ty c OPp2.  OPNOL and COPl must be 
4e ort itemse e: Soe Z ot - mae, ee we 8? 7 


| ihe pecan fietd le cis tons nell Gunter de Godiais.§ 
ae BIT formate le eee ee an ee ee ra rks cee 


ae COMPANY Y CONFIDENTIAL 
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me MULT = 


ee teeta ak 


Sit gl af Raitt et hig Re ney meta, Sle ul edge age. Sk ee OF sae Sie anh Nima tent Cie tetas Ratatat a te ag eee c beh 22) sd git as ca nso age ea nce ie Seca ita AoE ets aR cee Caen ts ate ectett et else te wees tae gil vaca ae Sande a sia eprciptoeea Beate ciate uahs bieeeta isan fees ben Dep oat tata: 
sled ue el lala a i a ec te tal a i i ad cele RSS Se cae le a ah tel Sl a a Rak Ril a nes a i 


& 
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DIVIDE | 


kak&kKkKaKKK 
* OlV « 


Rak Rak KK 


Format: — 


wererrrer ett t ttt cesT T ae 
*« DIV OPNO1,s COP1» ‘COP2 « | 


RERRRERERERERAR EAR RI RRA | 


Function? 


“Algebraicat ly. diviae a a uiraead dencted By coPl by a divisor 
denoted by -OPND1 and store the. quotient: in the field. denoted by 
COP2. ‘Store the | remainder in the. field denoted by COP1l. | 


The result field ‘length is the. at pepenee of the Sengeis o f the 


two operands: cand must be denoted by cope. 


Results. are” not. 2 ecit Ved: if, ‘the ‘tengeh of the dividend is not 
greater than the length of the divisor. | 


If the absolute value of the jase. “is not. greater than the 
_ absolute value. of an equivalent number of . seedung digits of the 
| SING en ae me: result is undefined «. | | 

_ Civision by zero results in. 4 fatal error communicate to the NCP. 
 OPNDIy COPLy and cope will be a bit items. 


ee De? sign of the. remainder Is that of the original dividend. 


q + ihe. aquadead field always, uaities > etoned: 4-8It format or 
unsigned 4=-BIT “pot i 7 ap 3 : He 


aca tn li srr oye Spa a She Seg Sal ha a BLS 2 ood aii SB Sais lee i SNOT aM eee pli 
. Fi . vt i 


pr nner eee tents aey me iy Sat gnnnetgease ath a E - + “ eect mene ey een em EN NEES SEA AEE ESE SER SES GTR SS Sg RRR eR a a RS CRT i ET Halli aa GRRE A ORES RIT GSE TM Sk 


DIVIDE SPECIAL 


hk th hhh 


* DIVS « 


| kt$hkhekknh 


Format: 


Akg khkkkhh kk kkkehnkkenhtkith — 


* DIVS OPND1L,» COP1>» COP2 * . 


Chee AERENRSREERR ERE ER ERR 


Function: _ 


This operation is penforwed in sae eles the same manner as the 


standard divide (DIV) operators except. that when a divisor equal 


to zero is encountered» an overflow toggle is set and processing © 


is allowed to continue. The overflow toggle can be ‘manipulated 
be the "SOFL® and "BOFL™ Swoper ators. ed 


* og uRRUENS CORPORATION. 8 company. y CONFTOENTIAL 
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sub Bp shh Adie i Five ea ini lp aidecamanta ts asec so ties bist amie cnn hai sase ties tate ee ea tel ite DS et es dae mea te ea re Sse i Soe ees ete tt ey Saco nee ell 5 as laa, 
a si ttt Sta poe Leones 2 : 
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oe BARBARA PLANT. 


INCREMENT BY ONE — 


GPS.) 2409243 
Format: 


| RRENKERE ER RRR 


* INC1 COP1 « 


hkhkkkkkhk kk keh 


Function: 


- | COMPANY: CONFIDENTIAL 
: 1800781700 COBOL74 S=LANGUAGE. 
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RHKKKKAe 


* INCL * 


eae kkkhkkek 


7 “Algebraically. es the. positive integer one to an ‘augend denoted 
by COP1 and store the sum in the field specified by COP 1. 


INCL is an. epraei ved S- Op and ‘the: opcode inckudes information| 
regarding the data type. of. COP1.: ‘CoP1 may be 3a short ee the 
format ae the: opecde is "011110085". | 


oP. 


mie 
241 
262 


243 


Type of on 8 


 h*bit signed oe C1. 
: B=bit unsigned : 10 


+ Bebit signed et 


sescaseemeniandiasmatbaeematenensienest seatondtiamemmmnennnemmiarubee sone ianemnmnnersamemheanes memes Saaiatty Semeenieeineanir aed wemeieaaet atatetemntoant amie amen 
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DECREMENT BY ONE 


Format: 


Akhh@kkhikhkhkh 
* DEC1 COP1 * 


SEeteceerear ss 


Function: 


oa COMPANY Y CONFIOENTIAL 
/— g1800ve1700, COBOL74 S“LANGUAGE 
: PS 2222 (3069 (BD 


eee 
— ® DECL « 


hh khkkhh te 


“Migebrsicalty:. subtract the positive incease ‘one. _ Apome- — ‘eunlede: 


denoted by CGP1 and store the difference in the field specified 


by COP1l. cor! must. be. a 4- ‘bit 


vEeme 7 


ere tenet ental Ate bitinen finn ae 


ee 2 


A aye | | - S47 
‘ewioiese CORPORATION a; ee? COMPANY. CONFIDENTIAL 


COMPUTER SYSTEMS GROUP 81800781700 COBOL74 S-LANGUAGE 
SANTA BARBARA PLANE === PS eB RRL 3069 (8) 


DATA MOVEMENT OPERANDS AND INSTRUCTIONS 


In general» fields invotved in data movement operations can have. 
any of the. following formats. . a | oo | 


- “Unsigned 4s BIT. 
ee Unsigned 8- BIT. 
a Signed: acait (sign. is MSD). 
| ee “Signed: 8- BIT (sign over MSD). | 
Any” restrictions ‘aes to the: type of. fields permitted in an 
-eperation are specified under ‘the description of the particular 


operation. 
See arithmetic operands and instructions for a description of the 
- four tynes. of fields. re | | - 


_ — ‘Tetally or. partially ‘overlapped fields are not permitted» unless _ 
( erect sed by be cceecipt yon of ane: individual instruction. 


sath cmos beeaige sake ome cane “ee sit si sii ining ia esi lh snip neers ssi os ins finials yiinidguatiiealil acacia ele ties meio a le a el ei hl alban sail nitaaaild pein Sue be ema fied emer rilehh ittllnan caiman aphids. 
7 “ i , . . qi : : 


MOVE ALPHANUMERIC. 
een a oe 


eae ae 


hh kkk 


OP: 64-127. 0° * 


Format: 


Birteret tee rte ctr 


* NVA COP1» OPNDI «* 


RRR e 
Function? 


If: the. destination eed is ee ae oe receives aqeoce. the. sign | a 
of the source vt the source is ‘Signeds or. ane if ene: source ee 


unsigneds 


If. the data type of the source field is be “BIT and the ee 
of the destination. field is B-BIT+ each 4- BIT unit. ais moved Co3>, 
the destination with eee i 7 co 7 


BURROUGHS ZORPORATION cs oe - COMPAKY. barges a 
— COMPUTER SYSTEMS croup 80070700 COBOL74— S“LANGUAGE yO 
ie: BARBARA PLANT 7 ee ee ee _—on Pe Se 2222 3069 aes a a, 


Move. i8- BIT or 4- BIT units ‘hoe the source fietd denoted oy opND1 
— the: (6- BIT or 4 Gil destination field denoted by adie . & 


3 the data type of the source field is 8- BIT a the: “"“Wata ei ates 
eg the. destination is 4= BITs the rlahenesy, 4 bits are ‘moved. oo ee 


_ Af. the data. type of the. ‘source. field is the same as the data type ee 


of the destination fields» each unit is moved | unchanged | 0! these re 


destination. en 


re ie the destination aangte: is” “greater in. size “than ere source ge 
- lengths » the dest ination field is. filled in on the. right With oc g 
trailing spaces (0100 0000) if the destination type is BSBETR ee Na 
| *. otherwises.. itis filled. tn on the Lae with: ‘zeros (©0000). Pi ee 


ita Gaping? acne ota a cae ranean ania Stapf sila tdoads 
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If the destination Length is lesser in. size ‘van: the source 
dength» ene source’ dat2. is truncated on the right. | | 


Overlapping operand fields. are permitted if. the data eye of both. 
‘fields is the same. — ‘It can be assumed that the source is movea 
24 bits (six digits or three characters) at a time into the 
destination field and that the move is from left to right... 


_¥VA is an optimized Stop» and COP1 and GPND1 may be short. COF 
descriptors. The opcode contains information regarding the data 
typese The format of the opcode is "00188SS=>". For examples if 
both source and destination fields are signed 8~bit items of 
equal length» then the op code is "001111110" or 126. | 


BURROUGHS. CORPORATION 
— COMPUTER SYSTEMS GROUP | 
SANTA BARBARA PLANT 


MOVE SPACES 


Format: . 


errr s eS TT) ae 
* MVS COP1 «) 


aecT croc... st ee 


"Functions 


: Fild the destination field deaeeed 
, nena ¢ | 


The data type of the dest ination field is ignored and is assumed | 
to be Benue: 8- BIT. . | . Soe 


ange Ae, wee 2 
COMPANY. ‘sonrapentem. 


-e1800/81700 COBOL74 S“LANGUAGE =, 
cc PSs 2222 3069 (8) ! 


he fe te fe fete te 


i MVS « 


KR K 


metic with. spaces (0100 


— GURROUGHS CORPORATION. =——<CS~si‘“i~“s*S*S~™:CS PANY “CONFIDENTIAL 
COMPUTER SYSTEMS GROUP = 81800781700 COBOLT74 S-LANGUAGE 
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-MGVE NUMERIC 


—rTitarts & 
* MVN * 


kKkkknkntk 


UP: 128-191 


Format: | 


ERR RRR RR REE RAKE 


* MVN COP1» OPND1 *— 


RAKE KE KEKEEKEEAKE | 


Functions 


Move 8-BIT or 4=BLT ‘units from the source field. ‘denoted by ~OPND1 


to the 8- BIT or 4-BIT destination field denoted A as 


‘Tf ‘the: deseeneciane ‘field is -signeds it receives either the sign. 


of the source if: the source 1S signed> or 1100 if the source 1s 


ds taneds 


7 Tf the destination field wane. the sign of the source is 
a So da | | a, _ io gs | 


if the sa type of. the. dest ination field is 8-BITs the leftmost — 
4 bits. of each B= BIT units except for. the. STQN positions if 
Signed» are. set. to anit egal ess of the data type of the source 


eee s, 


If the data type. of: the ‘dest ination ‘fiela es alk was tie a 


& bits of each. source 8=°BIT unit are. ignored and only the 


rightmost 4 bits are. moved? — if the source field. ieee, 


fielder each AceIT unit is moved unchanged. ae 


If the destination. eager is ‘qreater. in size than the saurce 


Length» the destination field is filled in on the left with 
i Legge zeros. of: acpropriate type C1111 0000). 


If the source “tength is greater ce than the destination 
_ length» the source data is truncated on the left. | | 


 BLRROUGHS CORPORATION = == = = = ~—__ COMPANY (CONFIDENTIAL 
‘COMPUTER SYSTEMS GROUP 81800/81700 COBOL74 S“LANGUAGE 
foe eee on tee ee oa? PSs 2222 3069 (8) 


Note. that: 2 stan +s placed in the leftmost 7 bits of a fields 7 


whether 4 BIT or “BIT. 


- Overlapping eperand fields” are. separ cose: if the data type of. Deen: 
fields is the same. It can be assumed that the source is oved 
24 bits (six digits or three. characters) at a time into the 
| destination field and that. the move 1S— from deft to rights | 


MYN is an “enviaieed 57 op. Secseuaenlus COP1 and OPND1 may be 

short COP descriptors. The opcode contains information regarding 
the .data typese © The format of the opcode is "01088S5S=>". for | 
examples if both source and destination fields are unsigned and 


the source field is 4° BIT data and the destination field is B-BIT 


data and the destination length as. greater in size than the — 


source lengths then the opcode is "010100001" or 161. 


Fill the destination 


BURROUGHS CORPORATEON 


COMPUTER SYSTEMS GROUP 


SANTA BARBARA PLANT. 


ROVE ZERUS | 


GP: 2367239 © 


Format? 


gutawee unica : 
* MV2 COPi *« 


RAK KEKEKEAE - 


Functions: 


» EE the destination field 


position. | 


kVZ is a, cops can be a short cop. The format 


of the opcode is "012101 


238° 


239 —— 


Sb isi St Ey a lad BAR SS Sg a et ie aa al sc talent ie aha aa tase al lth th lh Ne amer abe dt li ei i i MME hae BSA N ab 
inna: : . : : : 
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hkhaxkkkeanck & 
* MVZ & 


ake kk tt tk 


st field” denoted by COPL with zeros of the 
appropriate typecCiit) 0000 or 0000. af ‘4-BIT). 


is ‘signeds Me Seema the sign 


eo 


Data Type | | ae CBG: 


BI unsigned QO 
ae “81T ‘signed : ae _ 01 
e-BIT unsigned 10 


8-BIT signed = sD 


sible doa Da 


sp pe eet cs hay eter : ~ . nee emt stn IGN BASEN, TERE ABSA STIG ARATE AE Sa et EE Rt Rt SE la th late ed TAA, a 


- gurRouGHs: CORPORATION, = a. COMPANY, Y-CONFIDENTEAL 
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CONCATENATE 


te ete he tet 


Format: 


Bertrrririetitii irr trtr ore 
* CAT Ne COP1» OPNDOs «wee» OPNDN * 


RRR REE RE RERERE RAR ERE RRR ee 


_ Function: 


Move each o f bnce Net fields denoeed’ a OPNDO Leh Poul “OPNONS in 
the order specified». into. an. ash string Srecerng at the fietd 7 


| denoted by cOPl. 


The number of source Cie tas: a apeert ied: by. the. | 4-B1T pote. 
value Ne The vatue = N- eee from 0000 to. eres is used to 


inaicate 1 to 16 source fields. — 


: Each. field Saget: according to the “putes fy ai eee 
ALPHANUMERIC. ak, eo Ay ae ae 


If the. destination Length. is greater in size than he ‘eoabined”. 
source Length» the destination field is filled tn on the right. 


with trailing spaces C0100 ioe 


If the destination Length is less in size than the combined 


: source lengths» the source | data is truncated on. the cight. — 


ow CAT # 


err... cae 


api a as chet tang sag nielenit eee tc ca ia se i a Rt ah sa il a pe Ahead 


BURROUGHS maak pe a a | COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS. GROUP ss” 81800/81700 COBOL74 S“LANGUAGE 
SANTA BARBARA PLANT -— gaat — -PeSe 2222 3069 (0) 


eort INSTRUCTIONS AND EDIT HICRO-OPERATORS 


No restrictions are placed on ‘the data type of the source. field 
of an edit Bperetyon> | a | oo 


The data type of the destination field of an edit OperaLyon mus t 
be Epevanee B-BIT. © | 


If the destination i eene 1s greater in size than the source > 
Lengths the source data. is assumed to have teading zero fill on 
the left. poe _ | : 


If the source length is greater in size than the destination 
length» the source data 1s truncated on the bette: 


The operation is Been anced, by an aut microtoperator and not by 
exhaustion of either. the source of destination fields. 


ini Si a ER ee OT Ea ith Se OR Ata gnc San eo ae tl a ta a a ince pact i ah te ie UN iS Sol lent iad al dan esata ss la ee one ae eT aii al la 


erates nna ts mA NSA DAEHN EE RE ORA FAISEE  T SS oneaa noee e te 


gsm 
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—€DrT 
He ete he ee 


*® EDIT « 


we ki thick te 


Format: 


iGaminwedeweiecuaaes ce cede 
* EDIT OPNDi> COPir OADDR * 


CESERALSLISCEALEESLIAE RATT ST 


Function: es ns a a ae a aa 


Hove data from the. source fielde denoted by OPND1> to the 
destination fields. denoted | by COP1>s under the control of the 
micro operator string contained at the Location denoted oy the 


— DADDR. 


The ‘cndanen: led ns unsigned binary value which specifies — 
the digit. disolacement of the micro-operator string fTelative to 
the data segment zero bases. fhe container size of DADDR is 
(OTSPB. ey | Vs 7 7 | 


“BURROUGHS CORPURATION | 
ss COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


EDIT WITH EXPLICIT MASK 


Format: 


RRR RAEREREREREERERKE KEKE 


* EDTE OPND1>» COP1> MASK * 


ee ea KAKA RHEKERKERKKKERKEKK KE 


Function: | 


“Nove data from the source — 
destination field denoted 


3-27 


COMPANY. CONFIDENTIAL 


81800/81700 COBOL74 S=LANGUAGE 


RP eSe cece 3969 (8B). 


RKKKRKKKK 


* EDTE * 


RaktkKaRKKAR 


field denoted by OPND1 to the 
COP1 jounder the. controt of the 


micro"operator string ianediatety following COPi. The format of 
the See micec= operator: Seng 1s. ce same as a literal. 


See ee eee satiny ict cnet bake ooll iS wat is ina ete ak Sy ae abt ea a i a gg A ht at ed iad te 


9000. 
~ 0001- 
90 10— 
COLL 

 €1005 
0101- 


0110 


ORL 
1000 
£001 
" 2O10- 
4610. 
2010. 
1010. 
OTHERS | 


age 


aye indicates” a. 4s BIT binary wate used. to ak ip over a “nusber 
i, SESE ae 6-BIT Units. 


gaSaneaaes | 


— gurRauGHS: coRPoRATION 
COMPUTER SYSTEMS GROUP 
oy SANTA BARBARA PLANT e | 


The edit nicro- “operators used 


aperanae 


. a 


0000 
0010 
oCrt 


Padicaves. a 4 BIT binary yalue used as a repeat count» 
 vatue 0900 represents ‘no repeat? | 


cP ANY 1 CONFIDENTIAL. > 
": Suagoserroo COBOL74 S“LANGUAGE ~ 
: “PeS. 2222 3069 (8) 


earns MIcRO- OPERATCRS 


‘in an edit instruction are: 


Operation — 


em annmeaummm 


—. Mnemonic 


ee eee 


MOVE” D1 
MOVE 
MOVE 


MNOS 
ee yee 
coe MS 
INU 
NM 
” INS. 
INF. 
ERM 
Co. ENZO 
ee ee 
ee ce 


DIGITS 
CHARACTERS 
MOVE SUPPRESS. 
FILL SUPPRESS — eS 
“SKIP REVERSE DESTINATION — 
INSERT UNCONDITIONALLY 
INSERT ON MINUS 
INSERT SUPPRESS _ 6 A ee 
— ENSERT FLOAT 2 
END FLOAT MODE 2 
END NON@ZERO 
END OF MASK ee ne! 
START ZERO SUPPRESS | ee | 
COMPLEMENT CHECK PROTECT = 
UNDEFINED mw hs 


ae 
do it once. | 


of 
The value 0000 enn ee ees no Skips ‘ 


pie indicates a “4rerT binary value which 


‘The ne 


used to. index 


used 
_ table Pestantae: 


: used to. 
|. -editcoperator, strings oy 


into a table of editing constants. — 


ta Wathate a conditional select ion between two 


‘indicate. an “edit ing constant in tine with the | 


next edit- operator follows ‘the constant. 
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Ve alee ban eae the normal table editing constants 
as well as the ‘conditional and. unconditionat selection of 
constants, associated with the yeu "TMs | 


EDITING CONSTANTS 


Table Entry _ - ss Unconditional or 
T .. .€BCDIC = £Mnemonic = Conditional Constant | 


0000, em ap 
0001 | ade eM es MIN | 
— OOL0 em AST ” 


0011 ; WoW. ee a : OPT 


0100.00 mF MA 
ee D> Se ee +2) 
O110 0" RRQ 
nD © a =| 9 Sr 7 | 
1000 om PU, TRG SPM EITHER ENTRY O OR 1 
4004007” | oe SBM COXiEETHER ENTRY 7 OR 1. 
ee EOL oe 2s, 8 a . LIT ——- INLINE 8- pif CONSTANT 


“Associated with the edit instructions are eheoe toggles denoted 


as "S$" for. Signs "Zz" for zero suppress» and “P® for check 


“protects. Initially» the "Zz" and the "P* toggles are assumed to 


be set to the zero state. They are set and reset as specified by 


the description of the individual | micro~oper ator se The *s* 
toggle is set to zero if the source field sign is positives and 


to one if the source field sign is Negatives ‘Unsigned fields are 


considered. positives — 


=: a1 
220 
250 


cas30 | 


 eurRouGHs: “coRbORATION Sh DS - CONPANY CONFIDENTIAL 
COMPUTER SYSTEMS” eaaur = u8007e1700 COBOL74 S“LANGUAGE => 
fogs BARBARA. eae a ee ee ee Se (2222 3069 — : 


wove orert : | 


Set "2" to nin, i “ending the zero suppress state. Move” an’ 
_' appropriate unit (4-BIT digit or 8-BIT character) from the source 
field to the destination fietd. If a 4°8IT unit is moveds append | 
oy enthhe 4 bits. 1111 to the deft. before storing in the destination. 
a ee os an 8-BIT unit is moved» the 4 bits Ai are. ee aoe: 
oe leftmost: a bits of the ‘8-a1T unite Pa 


7 wave ¢ CHARACTER 


Set’ nye age, S enanae “the zero suppress states Move an : 
rials wana (ae “BIT digit or 8"B8IT character) from the source | 
field to the destination: field. If a 4°BIT unit is movedse append 
the & bits 1111 to the Left before storing in the destination. 

if an (8-BIT unit. is moveds. it 1s moved ne nepgeds 


Move ‘SUPPRESS | — _ | 
el hee Mtn “MOVE. DIGIT" is " waPaiehen if. the: 4-BIT unit - 


or the cightmost 4 bits of. the (8-B1T unit of the source field are- 
ae equat to ee ee | | | : 


indicating _honsuppress modes the micro~operator "MOVE DIGIT® is 


performed. If.the. ers toggte "7" equals "0"» the check 
protect. toggle SP. inspected. If epw = mgr, indicating 
noncheck. protect. ode Eaee the table entry containing the B-BIT 
code for blank to the destination field. If "P"™ = "1"» move the 

_ table entry. containing. ane. 8°BIT code for asterisk to the 
destination field... | ein ae ore 


Move. DIGIT 

MOVE DIGIT = ae 
“MOVE TABLE ENTRY 7 CBLANK) 
MOVE TABLE ENTRY 2 CASTERISK) | 


“soURCE NOT = 
SouRCE 
‘P=0. SOURCE = 
Pal Subpcaleee 


Ho ee 


ain the “appropriate. 4 bits of the source ‘field unit. are re tO, 
0000+, the . suppress toggle a Aa 15 imspected. If "7" equals 71" » 


bias SR i cat ti ta aed a a saat itch kn et ac ea i adel et a Sb a EBS She OA a i in ia er ae hs eb Newt sc TS sa sites Uae ibaa abate 
act Bp 


81800781700 COBOL74 S- LANGUAGE 


COMPUTER. SYSTEMS GROUP 
ot PeSe 2222 3069 8) 


SANTA. BARBARA PLANT 


FILL SUPPRESS, _ 


If ape = "0", “indicating noncheck- protect modes move the table 
entry containing the 8-BIT code for blank to the destination 
field. If "P" = "1%- move the table entry conte rang the B= BIT . 
aeede for asterisk ‘to ane destination field... 


ee TABLE sien 7 CBLANKY 
1 MOVE TABLE eee 


bn | 
uo 


SKIP. REVERSE DESTINATION _ 


Adjust bie.. Sadnesc pointer: of the “destination fieta skip 


to 
backward (Lower address) "Ne 6= BIT unitse 


INSERT is seni 


WMA” 


INSERT ON MINUS 


a2) 


Move the table entry “T™ as indicated below to the destination 
=O T=8 WOVE TABLE ENTRY 0 CPLUS) — 
=1 T=8 MOVE TABLE ENTRY 1 CMINUS) 
=O %=9- MOVE TABLE ENTRY 7 CBLANK) 
=1 T=9 MOVE TABLE ENTRY 1 CMINUS) 
T=10 MOVE IN“LINE TABLE ENTRY 


mm. 


| “Move the table entry “T" as indicated below to the destination 23 
se | 7 ee | | ae Bot 

=1.. Ts 0.007 MOVE TABLE ENTRY T 0 

* P=0 MOVE TABLE ENTRY 7 CBLANK) | 

* P=1 MOVE TABLE ENTRY 2 CASTERISK) 

=1 £T=8 MOVE TABLE ENTRY 1 CMINUS) 

=1. T=9, MOVE TABLE ENTRY 1 (MINUS). 

=1 —T=10— Lt, eh a ee ee. pee es 

ry 


tee 0 or only” ‘source digits /eharacters equal to zero Cuinus 
| zera) have been moves | _ 


“Pieaaodas: € CORPORATION 
COMPUTER SYSTEMS GROUP. 


SANTA BARBARA PLANT. 


| INSERT. SUPPRESS | 


Shovel the table entry 
field. : 


i. ne 
SA Ue 


OUWH | 
wHouuow 


pa pak pak pe. me OC Cr 
= Or © 


Pod ow on wow Hon 


Tn | | 


Ow GO 


aaa 
cS 


SON NGI BRE RD NAY tow, 


eT" as 


MOVE 


MUVE 


MOVE 


MOVE 


MOVE 


MOVE 
MOVE 


Move 


TABLE 
TABLE 


FABLE 


TABLE. 


TABLE 


TABLE 
TABLE ENTRY 1 
INeLINE TABLE 


ENTRY fF 
ENTRY | 
ENTRY | 


FNTRY 


ENTRY 
ENTRY. 


ENTRY 


' 
7 
2 
Q 
1 
7 
1 
E 


INSERT FLOAT 


Te the ete sney 
O1GITs indicated below 


0 SOURCE. 80 
SOURCE —  =0 
SQURCE } 
SOURCE 
SOURCE 
SOURCE 
SOURCE 
SOURCE NO 


NO 


“vi OU We 


oat ak at 


moOoWaDaor& 
~ Oe © 


eee | ee | ee | | ee | ee | | | 3 
<=. 
om 
aad 
it 
© e 
4a at 
ee | ee | | | | | 
So 


END FLOAT MODE 


Move the table entry 
reeds | 


NNN NE NUNN” 
RIO OCOSS 
eo, *, 
eee ee 

om OO 


ee eee es ee) ee | 


te. T ae 


eye 


MOVE, 
MOVE. 
MOVE 
MOVE 


MOVE 


MOVE 


MOVE 
MOVE 


MOVE 


as 


MOVE. 
MOVE 
MOVE. 
MOVE. 
MOVE 
MOVE. 


DIGGS. 3 hy foek 2. Ss 
ENTRY 7 CBLANK) | 


TABLE 


TABLE 
TABLE 


TABLE 


TABLE 
TABLE. 
TABLE 


“indicated below — 


py a RN RRS APES TSE 


COMPAKY. Y CONFIDENTIAL 


Pe Se 


to the 


(BLANK) 


CASTERISK) 
(PLUS) 


CMENUS) | 
7 (BLANK) 
1 (MINUS) 
ENTRY 


and/or perform the micro- operator "MOVE ; 


ENTRY 2 CASTERISK) 


ENTRY. 
ENTRY 


ENTRY 


ENTRY 
ENTRY 


Ts 


0 
1 
4 
1 


ENA Due EABEE se 


TABLE. 
TABLE. 


TABLE 


TABLE 


FABLE. 


ENTRY. 
ENTRY 


ENTRY 


ENTRY 7 


ENTRY | 


oo LINE TABLE 


THEN MOVE DIGIT 


(PLUS) THEN MOVE DIGIT 
‘CMINUS) THEN MOVE DIGIT. 


81800781700 COBOL74 S- “LANGUAGE = =§6 f & 
2222, 3069 BY Ne : 


destination — 


(BLANK) THEN MOVE DIGIT - 


THEN MOVE ‘OIGIT 


to the. destination 


-CPLUS) 


(MINUS) 


CMINUS) — 


ENTRY 


(MINUS) THEN MOVE DIGIT. 
ENTRY> 


(BLANK 5 4 
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END NON-ZERO 
lerminate the miceo-operator operations if any non-zero source 


character /digtt has been moved? otherwise continue with the next 
a oerorer. | oe t | 


END OF MASK 


Terminate the nicro-operator operations. 


START ZERO SUPPRESS — 


Set "2" to the "0" state. 


COMPLEMENT CHECK PROTECT 


Complement the state of eps, 


dasha ce i ih ait le al cl itachi a aie ni tae wb Si aia viii is in na carasrintliaianlis a eile dear isicatoas tua jtbastn umaStoa Ban elai wbliticendcdeOah eid d + 


| purrouGas” CORPORATION. 
COMPUTER SYSTEMS. cRouP 


BRANCHING ‘OPERANDS ‘AND INSTRUCTIONS 


A branch address argument wBADDR™ has ene, following format: 


DISPLACEMENT. EYRE SEGMENT NUMBER 
ated. bits) ~© -¢1) ao 2 as 
eer i tie aie alae ae daa inal idl 
i Sg Ne ee | 
| present if BTYPE = 1 
t ‘ : -_ ; 
Os: Relative to bie ‘current code 7 
- s gsegment base Cintrasegment branch) 
1: Relative to a new code segment base: 
Cintersegment branch) | : 


displacement of an instruction relative to a segmert base. 


Displacement oe an. ‘unearned. Sinecy abuse. anaci Seeeunice the bit: 


The 


container size. of the displacement and eee combined 1s a 


program parameter. 


a. a oe 
7 ee COMP ARY. 7 Seaetogenia oP 
ae ae 81800781700 COBOL74 S-LANGUAGE = sg 

ee BARBARA PLANT. Sat eo, tea te | rere a S- 2222 3069 POO ate g a 
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BRANCH UNCONODITIONALLY 


weet. 2 


* BUN ® 


ekkenk t 


Format: 


ARRRRERERE EER 
* BUN. BADDR * 


RRRRER ERR REE 


Functions: © 


‘Qbtain the next instruction from the location ‘specified by BADOR. 


Auucr Sela snes ssdeie Biekieidgiede ‘cptisdittat ‘nausea eer eth Seti ea Hotpoint itl at SS Ka is te oti eh as ac Sn Sets Seeds da 


“EURROUGHS | CORPORATION. ta ie oe ee “COMPAKY. eaueroeuitae ee 


“COMPUTER SYSTEMS GROUP | sanoeren700 COBUL74 S“LANGUAGE  =—s-_— 
SANTA BARBARA PLANT ae (PS. 2222 3069 (8) 0 A, 


ERANCH ON OVERFLOW 


eth tee hk hehe 


* BOFL * 


khkkktkk k 


Format: 


kReEkkkie kk kk ce ik - 
* BOFL Vs» BACDR * 


| kkkkKEKKEK ke kk kt RKK. 


‘Function: 


Tf ‘the ‘over flow Poe equats” Ve a transfer to the address 
(BADUR) given in the instruction occurs, otherwise» control 1s. 


bassed to the next senventrds ‘instructions 


the overflow toggle 1s J unchanged. The Length of V is one bit. 


briana at at hh peta Sa eh ea i lc Sat ee ie pe a an ai ttn SN linda 


fee Fee. ~ 7 te a bis Te , 3937 
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SET OVERFLOW TOGGLE 
7. chien ee 


* SOFL * 


RkKakkkhkketk 


Format: | 


Perea cry ae 
* SOFL V * 


KEKKREKE EK 


: Functions 


Set the overflow togate to. ve 
The length of. * is 1 bite 7 


NOTES The vert tay eenate: is. set to ‘one if a PDIVIDE BY ZERO" is 
encountered. in the DIVIDE SPECIAL Seoperator. or if a field 
overflow is attempted in the MICR format S-operator. | | 


, . 


PERFORM ENTER 


Format: 


KEKKKKEKKKKERRRAER 
* PERF Ks» BADDR * 


RR Re kt Re 


Function: 
Create a stack entry with the following format: 


DLSPLACEMENT | | SEGMENT. No. KO 
C24) 7) C12) 


insert a displacement values relative to ‘the active code segment 


base and potnting to the next sequential srinstructions, uate the 
stack. , fe 2 +5 , | 


Insert the current code segnent number into the stacke Insert 
the vate of fron dlc instruction into the ee : ena 


“Adjust the Stack pointer to point: to the next. possible entrye...- 


‘Obtain the next. instruction. from the location specified by BAODR. 


kena 
*# PERF ® 


a... 2 2 


iene CORPORATION COMP AKY CONFIDENTIAL = 
COMPUTER SYSTEMS Bere ert 81800781700 COBOL74 3$- "LANGUAGE = =— as 
SANTA BARBARA PLANT | et O28 ee ee a ee Pp. Se (2222 3069. Tia ae 


2g ™® pe 
oe ee a 


aoe 
‘ i 

N 

, 


y 
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PERFORM EXIT 


keh kkk 


© PXIT « 


RAXKKKKKKAK 


Format: 


kaekktkkk&hek 


* PXIT K ® | 


mtr rses + +? 7 2 


Function: 


Compare the kK contained in the instruction to the K in the 
current stack entry and if unequal» . proceed to the next inline 


— S*instructions. — If equal» adjust the stack pointer to point to 
the previous entry and obtain the next S-instruction from the 


pnieraacted contained in the removed stack entrye 


BURRUUGHS. : coen sae, 


COMPUTER SYSTEMS + ht 


: SANTA BARBARA PLANT. 


ENCER 


Format: 


errr rr rr 
* NER BADOR * 


tkthkhkkhk hk 


Functions — 


“Same function as "PERF". K 


cane ANY t CONPLDENTEAL SS 
81800/81700 COBOL 4 ‘STLANGUAGE = =—-_of = 
| Leu) Gece. A062 CBP 2 


nek hhk 


— & NTR ® 


ahh hk ke 


“iS assumed equal to zero. 


laa ea a td ad i a ait te le ti a th eB ic ae ate ect ad aii 


BURROUGHS CORPGRATION. 


COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT : 


EXIT 


Format: 


kkk KKK K 
* XITT *« 


KERKKEKEEK 


Function: 


Same function as "PXIT" 


K 
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| COMPANY CONFIDENTIAL - 
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ee 2 ee 


« XIT «# 


KeaEAEKE HK 


is assumed equal to zero. | 


~ BURRUUGHS | CORPORATION ee aaa Oo COMPANY. CONFIDENTIAL 4 | 
COMPUTER SYSTEMS GROUP - 81800781700 COBOL74 S=LANGUAGE f°} 
tesa, ner BARBARA PLANT 7 one ee a? OP. Se 2222 (3069 cB) _— 4 3 


GO TO DEPENDING 


SrrrT Tre 
* GUTD * 


fe he fe te ete te te 


Format: 


AER ER RR ER EERE RRR RAR a ee 


* GOTD COP1s L» DBADDRO» wee» DBADDRL * 


RRR EEE EERE REAR RE ek te 


Function: 


‘Comoare the io- bit. ihe value L with the variable’ sniecdr aed by 
CCPi.e The variable ts first converted to a any valuer — MODULO 
2 to the 24th power. | | | | | , ST 


If the binary value of the variable is less than zero or greater | 
than L»x» the next instruction is obtained from the location 


specified by DBADORO. Note. foaat the variable can be srgneds 


If the binary value of the. yandan le is in the range zero through 


L» it is used as an index to select from the list of DBADDRs the. 


appropriate DBADDR. to be used to obtain the next instruction. 


 BBACOR and BADDR> have the same format with the exception that 
DBADDR always contains the segment number. Although segment 
number is unneccessary for those OBADORs with BIYPE equal to 


zéro» in order to index into the List of OBADDRs» att of the 


PD BADURS must be of ened pea gti The container size of Deano as” 
PY ek stad: + Te | | ee Mee 


eae 


« 
4 


BURROUGHS CORPORATION | COMPANY CONFIDENTIAL 
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ALTERED GO TC PARAGRAPH — 
Rikki kth kt 


& GPAR * 


eee es 2. 2 


Format: 


KkKRKKKKKE ERE 


* GPAR DADOR « 


KRRARAKKKEKKKKEAK 


Function? 


Obtain the next instruction (ecu the Location | specified by the 
address Penns ; ‘ 


The address enseany*He0H* pas the 0 format as a BADDR. 


The argument DADOR is an unsigned binary value which specifies 
the digit displacement of the Mad relative to the data segment 


zero base. 


The container ed nein) is DISPB. 


BURRUUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 


SANTA BARBARA PLANT. 


ALTER 


Format: 


ARKRKKREHKKKRKEKHKRREK 


* ALTR DADDR» ACON *. 


khtekkkkkkk kkk hk hk k 


Function: 


Copy. the address constant 


the argument CADOR. 


| “COMPANY, CONF EOENTEML =-2 - 
-g1800/81700 COBOL74 S“LANGUAGE ~— 
— 2222 3069 te ‘ 


Pe ‘536 


"ACON™ into the data area 


ke kk&kkkek 


— & ALTR ow 


kktkik th t 


The address constant "ACON" has the sane Tormat as a BADDR.. 


Ihe Bvauweat DADOR 1S an unsigned binary value which specifies 
the digit displacement. o f the "ACON" pease to the aata segnent 


zero bases 


ane container size o f DADOR” is DISPB. 


specified by : 


3-45 
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‘CONDITIONAL BRANCH OPERANDS AND INSTRUCTIONS 


If the condition "A CR) B" is true a transfer to the address 


(BADDR) given in the instruction occurs; otherwise» control is 


passed to the next sequential instructione The relation (CR) a5 
defined as follows: | | | ) 


000 UNDEF INED 
001° «GTR 
010 LSS 
O11 NEQ. 
100 . EGL 
101 GEQ | 
110 LEQ 
411 UNDEFINED 


Qvertap of fields is viperaered: "A" is the first operand denoted 


in the instruction. If an instruction has only one operands then 


- the assumed field is the “A"™ field. 


Seals alt at aaah a og ca 3s pitta Aas testes sit Scaitsouictulvcatical teeters lec run eS ted si ac a iy tt Sta has Sg oh oat at ER SR ott tet i it ad aaa ad aon, 


COMPARE ALPHANUMERIC 


hk eh eee 


te CMPA -< 
ieee iss 
CP: 224-231 | 
Format? | 
Overrrererrrrrrrrrcrrrrr rT? Tea 
* CMPA UPND1s OPND2» Re BADOR * | 
kkk KEKKKKEKEa KEKE hhh 
| Function? 
Compare the two “operand fields according to their binary values. 
The’ “comparison is. performed left. 6a wisi with any shorter 
operand assumed to be right- filted with blank characters (0100 
ill af EBCDIC or 0010 0000 if ASCIDOD. | ~ _ | 
The 4iebds are. poner dened ‘equat. when eis: equal size periions are 
equal and the tonger field Cif one is tonger) has trailing 
blanks. | a0 oL . ee | 
8-BIT data format is assumea for both fields with no enccnins to 
verify otherwise. Signed fields have their most significant 4 
bits Ctheir sign) modified to the appropriate numeric zone C1111— 
for EBCDIC» O011 for ASCII) before being compared. This | 
| —medification is. not. permanent and is done so that s4gn. doesn't. 
» g ETOCS, the result of an. alphanumeric. ‘comparison. — | 
aS CMP A. is an optiaized. S- Ope Consequently» — -OPND1 a OPND2. may be 


short’ COP. The LOGICALSIZE of OPND2 is always greater than or 


eoual to the LOGICALSIZE of OPND1. The format of the opcode is 


"d11400S5=" ie 


te de eee oe ee F ld ie SBHO 
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suhe ws pu cadens se Shae xc Spun sinatra enlace aca aac ROR Tere ee 
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SANTA BARBARA PLANT. jp — PeSe 2222 3069 (B) 


COMPARE NUMERIC 


RkeAR KKK K 


* CMPN * 


SeREKEHEN 
OP: 192-223 . 
Format: 


— RRERERRKKERREREEEARKKKKRKKRERE SE 


* CMPN OPND1s OPND2» R» BADOR * 


AREREREERREREEKEREEKRERERER ERE 


Function: 


Compare the two operand fields according to Phe algebraic values» 
considering: the two. (fields to be cores of decimal integer se 


When the field sizes are differents ‘the Longer: is tested for 
leading zeros (0000). There is no restriction as to data type. 
In comparing an 8-BIT characters only the rightmost 4 bits of the 
SaeeCror are considered? the other bits are ignored. | 


Two fields of atl zeros are equal regardless oe. signs 


Unsigned fields are considered positive. Sign conventions are 
the same as ree arithmetic operands. : , 


Results jenennted by invalid digit values are undefined. 
CMPN is an optimized Stop. —OPND1 and OPND2 can be short COPS. 


The LOGICALSIZE of OPND1 is always less than the LOGICALSIZE of. 
OPND2. The format ot the opcode 1s Ot IER Soa 


Spends Senieiatbs aaliyah Tali tana he adits istegonin Sieid Solenoid eldek sua dis cts lucdatuake Sspecnoabessiecasat i eo torts linsoeceicchtie alta les - 


“gURROUGHS: CORPORATION. 


ate a at nae SOOT OT NE 7 OOS SS TaN TR ee 


COMPUTER SYSTEMS: GROUP 


COMPARE FOR ZEROS | 


eke 


« CMPZ « 


 whkkkkee 


GP: 232-235 
Format: 


rere rer trett tT ttt tits oe 
* CMPZ COP1l»s k» BADDR * 


KREKEEARKER REAR EERE KE 


Function: 


bomoane two. ‘opeisnd. fields according. to chave algebraic values» 


ee the first field to ae Comers of att zeros (0000). : 


There is no restriction. as to vawatveess In comparing an 3-BIT 
character only the | rightmost 4 bits of the character are 
eon oceeos ine nee aan UIUln See | # ce a, ee 


Two. fields: of. att zeros are equal regardless of aro 


Uastoned. “‘eyelds. are egasidents positives — Sign conventions. are. 


cee same as for arithmetic oper ands. i 


Results generated by invalid digit yabuee are undefined. 


CMP? is an optimized Srope coPt can be. a short cop. The format 
Of the opcode. is "011101085". eo oe 


‘Opcode ° ears veto * 72 a 
23200 BT unsigned be 
Tne aetgie ags 
256 °° eeptt unsigned 10, 


235 = si BHRBIT Signed iia 


~CUMPANY. CONFLOENTIAL 


. |e vase, -81800/81700 COBOL74 S-LANGUAGE 
SANTA BARBARA PLANT ee 408 PaS. 2222 3069 8 


ay 


NY 


SSS Sion ie ane i a ec at feet SR a ha int he ihe teh ml i atl hae eae 
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COMPARE FOR SPACES 
| Weigecee 


* CMPS «* 


kkakk kkk 


Format: — 


RRRKEKAEKEKEKREKKKENTAKKKES 


* CMPS COP1»s R» BADDR. # 


RAR KKRER KE REKEEKEARREEKE 


Function: 

Compare two operand fields according to their binary values» 
assuming the first field to. be comprised of ait spaces (0100 
0000). ad, ' _ De 


The comparison is performed left to right. 
Unsigned B-BIT format is assumed en no checking tec verify 
otherwises — . : : 3 _ 


This operator. is not. sensitive to eolvace tapte address and is 
valid. onty- for the native eros: Sequence: es 


— COMPUTER. SYSTEMS GROUP -  Bie00 81700 COBOL74 S“LANGUAGE 


TRE ea i ee ee eee Te a cs 


sso 


 Mupialieds coreoratifON _ -cbvp Any. aaa ate et fe 


SANTA BARBARA PLANE 720 (PS. 2222 3069 a BD) 


COMPARE FOR CLASS _~ 


eee 
—# CMPC «— 


khkkkh tht 


Format: 


PUT TTETITETTTTETETTTETT 
* CMPC COP1» Cs» BADDOR * | 


PC TCeerceer eee eee eee eee £2 2 oe 


compare the operand, field and determine whether ‘the field ist 


~—C=00 COMPLETELY. “ALPHABETIC 
OL COMPLETELY NUMERIC © 
10 NOT COMPLETELY ALPHABETIC 
11 NOT COMPLETELY NUMERIC | 


- If the condition being tested is trues a transfer to the address _ 
BADDR given in the instruction occurs; — otherwise, control is — 
pee to the next beled aut instruction. | : 2 


In the ‘eiphabetic test» each Gnarsecer: as rangerenecked: for 1100 — 
C001 through 1100 i001, “1101 0001 through. 1101 10015 1110 0010. 
through 1110. 1001 and for 0100 0000. _ Unsigned 8- “BET format is. 
assumed with no Sneek rns . to verify otherwise. : ' 


oo. the ‘numeric test each character is einaerchasked Tore cures 0000 


through 1111 1001. Signed OF lig ee B-BIT format is permitted. 

Tne 4 bits in the sign position of signed B-BIT field are | 

| ignored. The sign position 1s the eee 4 bits of the most 
se oorveape eer accene | ok | Ch Be ie. 


S791 . 
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COMPARE REPEAT 
kkhkkehht 


* CMPR * 


RkEkdkKKRKEK 


Format: 


ARAMREAREERRRERAREKERE ERK 


* CMPR OPNO1» COP1»> R> BADDR * . 


RRR EEE RERREEEKEERAEEEKK EK 


Function: | 
| RON She Se Sperene Fields geeoraing to their binary value. 


If thie COLLATE TABLE ADDRESS” is nonzero» each character in the 


operands must be transiated before comparison. This 1s 
accomplished by using each 8- 8IT character from GPND1 and COP1» 
multiplied by eight» as an index into the translation table 


located at the address given by the . COLLATE TABLE ADDRESS to 
obtain the character to be compared. © | , “3 


“Comparison proceeds. from teft to right. 
‘The field lengths are considered equal by repeating ‘OPNDL. 
Both fields are assumed to have unsigned B-BIT data type. 


The size of —OPNDL. must divide evenly into the size of COP LS 
(otherwises— ane, results of the COARSE S may be. erroneous. 


. eS 5S tater, « Fae fa ei) Ey nt te Dare a ee Se gah OE Pre oe ae 
ct Mie daa tla al eae Z gis se oe a yebs se 


jet -beherrvuaientinnnmeiie etn bec 


article CORPORATION 
COMPUTER SYSTEMS GROUP 


- RRAIaPaCTEnnenen tines SREP aEEREmneinan een ommteteeinndms o-anammmmeamanteeeneear aemaiennememeen emanaen tem eametnaiad-tememacenten bad tamaminaieemmmnamaemememmemement ats tenement aeaiadnatedetammuoaamie eae eee eee EEE 


(5552 


COMPARE COLLATE 


eae kak 


* CPC #) 


kkk tkhhe 


Format: - - | | | a 


RRR RR a hk ki th 


* CPC OPND 1» COP1» Re BADOR -* 


RURAKKKEKREKEE tee ke Rt i tok teh 


Functions 


If the COLLATE Piper Mpoeos. ae meneenos: Nie procrae. ts.Usane 2 


non-native cotlating sequence and the operands must be transtated 


into this program's collating sequence before comparison. This 


is . accomplished Dy using each 8-BIT character from OPND1 and 
CCPl» multiplied by eights as an index. into the translation table © 
located at the address given by the COLLATE TABLE | ADDRESS ae 


obtain the character to be compareds 


The comparison 1s. sentermed teft “eo “PAGE with any shorter 


operand assumed to be right-filled with blank characters (the | 
blanks being translated if. this program is using a non=native > 


ecklating Se ode neers: 


The | fields are considered equal when the equal - size poreiens are 
equal and the gponger:: field Cif, one is. longer) has ‘trailing: 


“blanks. 


- 6*BIT data format 1s assumed for both fields with no checking to! _ 
oo Meri fy ‘otherwise. Signed fields have their most significant 4 | 
“op itge ieee» their sign modified to 1111 before translation is 
done Cif necessary). | This. modification is not permanent and. as) 
done so that the sign will not | affect sone result of an 


_ alphanumeric comparison. 


| : COMPANY. CONFIDENTIAL 
a 81800/81700 COBCL74 S"LANGUAGE 
SANTA BARBARA PLANT 2  PeSe 2222 3069 CB) 
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MISCELLANEOUS INSTRUCTIONS 


COMMUNICATE 


cAGaw ee 

* COMM «* 

kkk tih tt 
UP: 33 


Format? 


orrer eT Te 
* COMM COP1 « 


kkkkkkkkkkkeek 


Function: 


ree the Gength ene Address fields from: the COP1 entry to the | _ 


RSsCOMMUNICATE.MSG.PTR field located in this program's 
—RSeNUCLEUS» converting then ennente: The origin fietd is 
unchanged. : : | | 


‘The Length is converted from a digit or character ienoth to a bit 
— fdengthe | The address is stored as an absolute bit Bouee see : 


Pryce CORPORATION on 


COMPUTER SYSTEMS GROUP | 
SANTA BARBARA PLANE - 


LOAC COMMUNICATE REPLY 


Format: 


Tr? TS Tee ee eT ee ee 


* LOCR DADDR « 


Rk hkhkhhhh hhh t 


Function: 


fhe LDCR does ene mapping of R3eRMSG~ p2. and the last jets 120 


Status wees as i 


RSeRAS5GeP2 Vatue 
07 (Good Complete). 
1 CAT END) | 
2 (1/0 Error) 

3 (Incomplete I[/0) 

ok 

5 


“10 


LAST LOGICAL I7O0 STATUS. 


bit Oo (Exception Descriptor Follows) — 


~ 
a) 


— (Reserved) 


See neo Record OK) 


oy | “COMP AAY Y CONFIDENTIAL 
81800/81700 COBOL74 S“LANGUAGE. 
| PAS, 2222, 3069 (B) 


—Ttett ts. 


* LDCR «| 


kihthktet 


Value Stored at DADDR 


m= OWN eR © 


Value Stored at PADDR 


value of 0 7 a _ 
vatue of 1 : examine following bits. 
“1 (Boundary Violation) : oo ee ae, 
2 (Duplicate Key) 1 
3 (Sequence Error). a Ak. 3 
& (Variable Length Record Err) ie. 
5  €Invalid Key) | a 
6 (Reserved) — Je 
7. (Parity Error): > oo 
8 (Reserved) > a 
9 CAT ENC / EOP) | ~ LS 
10. (Short Block) oe 
11 (Reserved) | 1 


BURROUGHS CORPORATION _ 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT , 


43° (Break on Ouput) 


14 (Reserved) 
15— (Time Gut). 
a 23 (Reserved) 


sus Se a oo a a ad elk a ob et ite 


COMPANY. CONFIDENTIAL 
B1800/81700 COBOL74 S-LANGUAGE 
Pe Se 2222 3069 (B) 


eet ND 


BURRUUGHS CORPORATION 
— COMPUTER SYSTEMS GROUP) 
SANTA BARBARA PLANT 


WAIT COMMUNICATE REPLY 


Kekkekkkkkke kkk 


* WICK OADOR * 


hihi kkkkkkkaekt 


Function: 


certian tinea fan cna enatonlnagat nem 


ars. st or 2 T 


-# WICR «. 


kktkkkkkk 


The WICR returns the value of R5sRMSG-P2 at DADDR. 


nfs COMPANY CONFIDENTIAL — 
-81800/81700 COBCL74 S-LANGUAGE ~ 
—P.S. 2222 +3069 (By) 


a 
+ 


ae 


Reka < 


“fh nil Apt gecie RM se Gesell sa seat a Sat eave scarab son sic ac sSenanuels sean dea: ‘ait eutieshys denatchbe sidan os sFessinas se Rafi seashiase pid nates beh meets stat Tein ‘galt stissaalaiS sical tail post : eis ca aS sate te 
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CONVERT 
kk hkthh kt 
*« CONV * 
he tee ee het 

GP: 4Q 


Formats 


PerrrerT er rer errr es. 
* CONV COP1 DADDR N * 


REEKKEERKEKEKKKEKEKKEKK 


Functtons 


Convert the “epemend + easeas: by. copi from a decimal value to. an 


unsigned 24-bit binary values truncating or zero-filling on the 


teft if. necessarye Place the result at the location specitied by 
DADOR. N represents the number. As bits ae converted vatue_ to 
store at DADOR. | , a a a | 
The operand ust be taker ansign “4-BIt or unsigned B=-BIT. - 
UNITES. . eo a : a) | | 


See "MAKE PRESENT? ‘ for definition of DADDR. 


| ; ee A » 
| | | SSE 
‘BURROUGHS CORPORATION = ~~ COMPANY. CONFIDENTIAL 
COMPUTER SYSTEMS GROUP | 81800/81700 COBOL74 S“LANGUAGE 
SANTA BARBARA PLANT) 2  PaSs 2222 3069 (BY 


MAKE PRESENT 
eke ee 
* MAKP # 


kKkkhkhkkk 


Format: 


hk ketkkkkk hk khhk kth 


* MAKP COP1> DADDR * 


kkkk&kkkkkkkkkkhihkhk 


load the data segment spectfied by COP1 and place the base 
| relative address of the data area specified oy oreo Sar 
24- bit Seon specified by DADDR. = 


“pADOR is. an unsigned binary” value which specifies a digit 
displacement from the gata segment zero base. | 2 


fhe container size of DADDR is DISPB. 


$e Spine SEND iapecteruet aphib care rE aa hi ee a hye i ol le aT a UL clean 
ae , area . e . . : 3 - . . fae ost ‘ wot 
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HARDWARE MONITOR 
tk hk hhh 


* HMON * 


kikhhk kik 


Format: 


Prrvrrrrr rs tre 
#® HMON OPND1I *«— 


RE RRARKKKE KR RK 


‘Function: 


The. Lowe order 8 bits of the field described by OPND1 are used as. 
the input to the monitor micro~operator described in the 
4, Seutowing, prone oc elyiecn tones. a | 


M-Nemory Processor. #1913. L747. 
s“Memory Processor 7 (#2201 6760 . 


The tength of the. field described by OPNDI mus t be greater than 
or. maues to 8 “bits.. 


_ | 7 | 5-60 | 
“BURROUGHS CORPORATION == = =—————s COMP AY CONFIDENTIAL 
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FILE STATUS” 


weeer eT ae 
* FSTA * 


 wkkk kkk tk 


Format: 


RekKKKEKRKARKEEKKKEKKK 


* FSTAs WRIT, COP ® 


Akhkkkkkkkkikhekeheyet 


: . . , A nd 7 . | ; | | . f s 
Function: | | a | — (at? a es tg 


rtace in COP the translated value of the status of the last 
IGeWRIT indicates whether the last I0 was a READ OR SRELEs 


The translation from COMMUNICATE REPLY CRE eRMSG. p2) or the Last 
hogicatl I/0 status values to file status codes is .according to 
the fotlowing ener 3 a | | 


COMMUNICATE REPLY Values returned by MCP FILE STATUS copes 
0 . (Good Complete) | a _ 00 
i CAT END / EOP) a 4 Sg 10 READ) 
| | a re | | 34 (WRITE) 
2 CI/O Error) | 7 Examine I/0 status. 
3 (Incomplete 1/0) a — | 94 CREAD) > 95 CWRITE) | 
| SveUREemes Record OK) a Piger:, tie 
5-10 | eG | aa 99 


“LAST LOGICAL IvO STATUS FILE STATUS CODES 


- bit 0 (Exception Description Follows) 


value of C | i, ae 4 kn Ate 99 

value of 1 | | (examine following bits : 
(Boundary Violation) et 3 eet, 2 2 - 
(Duplicate Key). oe > tees 

(Sequence Error) — | 3 a: ey i ¥ 3 
(Variable Length. Record err) a rn re 
CInvalid Key) a ae ee - ee 
(Reserved) | 7 eee eee . a 

WAP aArity Error): «©. ~ 22, * bate om Bag 4 80. 


NOU EWR 


3-61 


BURROUGHS CORPORATION ee _ COMPANY CONFIDENTIAL 


COMPUTER SYSTEMS GROUP a 81800/81700 COBOL74 SLANGUAGE 
SANTA BARBARA | PLANT 7. | . PeSe 2222 3069 (B) 
8 Reserved). . 7. ww. Hea 4 — == 
9 (CAT END 7 EOP) - : not requested 
10 (Short. Block) : aa | 91 
11 (Reserved) «| z 7 | -< 
i2 (Reserved) ae 2 ._ == 
13° (Break On a e | O97 
14 (Reserved) - i < 
15 (Time Gut) - * : it * | | -. 96 
16 -23 cheserved)” | a | - < : = 


For any COMMUNICATE REPLY or ose Logical 1/0. status gate that 
does not have a File Status codes the condition will be masked 
out with the result mask specified by the communicate. Note that 
an EOP wild result in a "34" instead of the expected (Cand 
correct) "00". 3 -_ ~ 3% | 


BURRGUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 


BINARY SEARCH ASCENDING LOW 


hhh hth 


* BSAL *. 


_eKkakKkKRKkt 


Format: 


RRR EER ERE RAE A REE ERE HE RK Hk 


® BSAL COP1> OPNDs> KEY.OFFSET» COP2 * 


Ak tkkkkkktkhikkkkkhke kkk hak kknkhk kak the 


Function: 


Use a binary search to find the Lowest index value of a key in a 
table that matches a search argument. If no match occurs then 
the index wilt describe the value of the next highest key in the 


tables 


COP1 is the index sity bole  GPND is the search argument 
descriptor. KEY.CFFSET is a 20 bit binary value that denotes the 


beginning of a key relative to the beginning of a table etement. 
COP2 is the table descriptore At the beginning of this op» COPI1 
describes the largest zero-relative index value of the table for 
this searche The table is supposed to be an ascending ordered 


table ical mart table Cilekey <= table [i + Llekey. 


The algoritha for this binary search is characterized as follows: 


VAR | ir high» low : integer; | 
|  searcn_argument : character (key. Length); 
table ; acray (€0..COP1_ value] of table. elements? 


— fegin  lowt= 03 highs= cOPL_ vatues it= tows 


repeat {low <= j = high} | sie 3 
if search _arguaent >= table Cilekey then. tows =i 
else high:= 1, | | 4 


—93= Chigh + Low) div 23 
until Ci = low); 7 


end 


COMPANY. CONFIDENTIAL” ’ 
| ee /B1800/81700 COBOL74 S-LANGUAGE 
SANTA BARBARA PLANT a. = | P.S. 2222 3069 (8B) 


- COP1_value:= highs {search_argument <= table (high)} 


suibicase shes oS stata aceasta sia sd isch hi ul anlage: saaans Cel sa lhe tli a Gh a i A Sat ie lla abate SE 
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EINARY SEARCH ASCENDING HIGH 


Kk kh kk kh 
* BSAH * 


aRRKREKKKK 


Format: 


KKKARKKE Kt ERKERERRERERERER EERE RE EEK 


*# BSAH COP1> CPND» KEY. OFFSET» coPp2 « 


STI TTT TTT ARRREHRARERERER ERK ERE EH khhknaen 7 


Function: 


Use a binary search ‘to. find the haewese Index value of akey ina 
table that matches a search argument. If no match occurs then 
the index value. wilt describe the next Lowest eye in the Fanres | 


COP1 is the. index descriptor. _ OPNO is the search “argument 


descriptor. KEY.OFFSET is a 20 bit binary value that denotes the 


beginning of a key relative’ to the beginning of a table element. 


CQP2 is the table descriptor. At the beginning of this ope» COP1 


describes the larcest zero-relative index value of the table for 
this. search. .. The table is supposed to be an ascending ordered 
table such that table Lidskey : <= Rate Ci + LJ. key o | 


The algorithm for this binary search is character ized as follows: 


VAR - ate high» Low? integer 
| - gearch. argument character (Ckey_ tength); _ 
table  aeeaye [0..COP1.vatuel of sane elements 


begin lows. OF high:= uel yetaes: its highs 
ae repeat © {Low <= i high} 

if search. car aunans ye table Litekey then towis i 

else high:= i | | | | 
— 3= Chigh + ee + 1) div a 
until Ci=highd> — : | | 

| COP L_ value? = Lows (search. ~arguaent >= table (tow) 
end 5. | 5 ee | | 


- EURRUUGHS CORPURATION 
COMPUTER SYSTEMS GROUP 


56a 


BINARY SEARCH DESCENDING LOW 


kk kk kk kt 


* BSOL * 


hh th kk kt 


Format: 


fk te te te te fede fe te te ie te tie te te tie te te tok tt i iki te ek i tet 


* BSOL COP1> OPAD» KEY.OFFSET» COP2 « 


AkRKKKEKKKKAKRARKKE KERR ke Rk a kkk 


Function: 


Use a binary search to find the towest index vatue cf akey in a 


table that matches a search argument. If no match occurs then 


the index value wilt describe the mext lowest key tn the table. 


COP 1 is the index descriptione QPND is the search argument 
descriptor. KEY. CFFSET is a 20 bit binary value that denotes the 


beginning of a key relative to the beginning of a table element. 


COP2 is the table descriptors At the beginning of this op COP1 


gescribes the largest zer Se index value of the table for 
this searche The tabte supposed to be a descending ordered 
table such. that table Lilekey => table Cy + 1]. keye | 


the algorithm for ena binary search ie ohavaeeee tadaons Hatiavee 


VAR en eo nah a eecdess: 
 - $earch_ argument : character (key. Length)? ee 
table > array C0. .COP1_ value] os table_ elemets> ~— 


begin | Lows= 03 highs: = cCoP1. ‘watues ere oe 
oe repeat {tow <= i <= hight at _ 
if search oe < vanes cil. key then low?t= 17 


else highs 
iz= Chigh + tow div 27. 
until (Ci = low)? 


end 


7 “COMPANY CONFIDENTIAL 
7 : | | = 81800/81700 COBOL 74. S*LANGUAGE 
SANTA BARBARA PLANT © a - _ P.Se 2222 evGy ae 


COP 1 value: evi {search_argument >= table Chighlekey} Ls 
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BINARY SEARCH DESCENDING HIGH _ 


kh hh ikke 
* BSDH «* 


ek kkkkhek 


Format: — 


Saw eens wiwws awakes s Waa dece teeeeee ese... 
-* BSDH COPi» QGPND> KEY.OFFSET» COP2 «. 


KKEKEREKEEAKEEEKRKKARERAKKKEKRKRKKKEKKRKKKK 


Functions 


Use a binary search to ‘find the highest: index vatue of a key in a 


table that matches a. search argument - If no match occurs then 
the index value will describe the next highest key in the table. 


COP1 is énS i noes descriptor. — “OPND: is” the search argument 
descriptor.  KEY.OFFSET is a 20 bit binary value that denotes the. 


beginning of a key relative to the beginning of a table element... 


COP2 is the table descriptor. At the beginning of this op» COP1 


describes the largest zeromrelative. index value of the table for 
this search. The table is supposed to be a descending ordered 
_ table such— that table Cidekey. => table Ci ¢ ii. keye | 


‘the algorithm for this binary search is. character ized as foltowss 


VAR | aa IE. naan. tow = integer; 
: - -$earch argument > array Caciaye: Length) of’ meee 
- tabke 2 “Br Cay, C0..COP1_ value] of table_ elements# 


eegin tahoe hight= COP1_vatue3 iz = hight a 
, * i eeeak “low <= i <= high} ee bh 
if search rep eae < table til. -key then low: = 19 : 
else high : if | -* 
t= Chigh + low + 1) div a 

untit Ci. = = high)? a Bs | — 7 : | 
Be oot vatue: bows: (search. ~arguaent => table Clowl.ekey} 

end. ae | A oat ee ge OS 
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CHARACTER STRING S-OPS.— 


DESCRIPTUR SETUP 
Trt roe 


* DSEF « 


khkkithhth | 


OP: 50. 


Format: - 


* eae bee a wee 
* DSET DADOR» COF « 


tkhk kk kkik th k thik tht 
Ne va 


Build a descriptor a cop at the Location specified by DADOR. | : ae 
The format of a ASsceIDeor CDESC) is that of a cop entry after eA 
the OCCURS DEPENCING value fas been applied and after subscripts 

cr indexes have been evaluated to derive oan ultimate 

| ee iceenen ¢ | | : 


The current 81800 format for a descriptor is as follows: 


“DESC: (64) 
DATA" MULTIFLE= SIGNED SHARED" LITERAL~ 
TYPE ENTRY"  DATAS FLAG 
a FLAG: FLAG 
cc; ae ¢ > Sn © cE © 
LENGTH= SEGNO= DISPLACEMENT si alas os 
IN- “OR-IPCD= IN DIGITS | 
DIGITS: INDEX = %. 
(14) (10) C20) (a2) 


aaa meson ewe mentee eaten mene 


The MULTIPLE«ENTRY«FLAG and LITERAL. FLAG are. equal to zero in the 
coe heats 7 : ak Pst! 
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INSPECT SETUP 


ththkh hee 
* ISES «& 


kakk kt ** 


oP: 51 


Format: | : 


LEAMA ER EAE ERE RRR EERE RARE EEE RE REAR REE 


* ISET Vis V2» FLAC» DAODR1i» COP1» COP2» DADOR2» OPND * 


REE EKER RE EERE AREER ERE ARE REREE REREER EERE EERE EE REE 


Function? 


Build an INSPECT. TABLE entry at ‘DADDRI. 


Va éoecieies whether this is. the Last entry (Wie 1) or Note. v2 


indicates whether BEFORE» V2=1re or AFTER» V2=2» or boths V2=3>» 


bee speci fied. FLAC indicates the mode on INSPECTION. 


“FLAC 


= 0 indicates FIRST 
FLAC = 1. indicates LEADING 
FLAC = 2 indicates ALL | 

= 3 indicates CHARACTERS | 


FLAC. 


— DADDR1. indicates the location for this INSPECT TABLE entry. coPL 
indicates the number of. characters to be tallied or epics? when 


FLAC is not equa’ to 3« 


cop2 as ‘the ‘count field for tallying or. the replacement string. 


- DADDR2 is the location of. the source. filed description if 
BEF ORE/AFTER is specified. a ee ee | | 


— OPND. is the deliniter if BEF ORE/AF TER is specified. _ 
Set INELIGIBLE. FL AG= Oo: of ae, ey ae Ge 
If V2= =.) set: AFTER.FLAG =0 and examine. the source. field or: ‘the 


delimiter specified. by. OPND1. If . a match is founds | get 
-ELIGIBLE.~POSITION to the character. position of the beginning of 


the first occurrence of the delimiter. If a match is— not founds 


set ELIGIBLE.PUSITION=0 and AFTER.FLAG=1- This» in effect» makes 
the entry eligible for atl characters of the source field. 


lf V2=1e. set AE TER. FLAG= 1 ond examine the source field for the 


+ ibtetiae gies by OPND1. If match is founds set 
ELIGIBLEsPOSITION to t¢t the character ‘position to the vight of the 


- @ . 


Sie go act is Soa ts Sa ot ae a chosen it nea TaN titan toni wes i lB i ASRS Aa leek ah i hor iD BES NA abbott nit Aetna a ui at 


BLKROUGHS. CORPORATION an *4Shtee, ae ot COMPANY eeurteewiie.” 
COMPUTER SYSTEMS GROUP 81800/81700 COBOL74 3"LANGUAGE 
SANTA ene ELANI om oa - _ 7 P. Se (2222 3069 By 


first occurrence or the delimiters If a match ‘is not boa eee.’ 
INELIGIBLE « a 3 ae ee eo 2 


be «ete + set ELIGIBLE-POSIFION=0 and AFTER-FLAG=1.  Thiss in 
SD hec te Bakes the entry elrg inte. for att characters of the. source 


comes ; 
. The description of the INSPECT TABLE 1s as followed: = So ; ae 7 de 


INSPECT.POINIER is the first 24 bits of the Inspect fable which 


is used to save a pointer into the source string in case. 
inspection is interrupted. This field is foltowed by a variable — 
ud of entries with the. rooming formats | 


INSPECT «TABLE. ENTRY: (148) 


me 1 a a SOO HNN NMEA m 


LASTS INELIGIBLE- AFTER- ELIGIBLE? FLAC DESC1 DESC2 FILLER © 


-ENTRY= FLAG © FLAG ~~ POSITION , 
FLAG | - ee | eo. | | =. 
Ci) C1) C1) 7 (13) (2) (64) (64) (2) 
oP remem ey ewan emma to nimenanyt mmamsnaamatmamaat saan aas Sammnatamame 
1 tf ! r a Sa 
_ ! ; 1 _ i -unuseq | 
i 7 ; Po : . ee 
{ 4 1 ot ras ©) 
i | 1 { i ( count field or 
i 4 | i 1 to reptacement 
| i tp | string 
i 1 to 1 ee 
é i 1 i i -- characters to be 
i ; i an tallied or replaced 
4 \ | 4 Cnot meaningful if. 
4 f FLAC=3) ee 
{ { i j { | 
| d i ! -- 0= FIRST 
te —LSLEADING 
t i a i a — 6 2SALL _ 
r { 4 i 3= CHARACTERS 
i | ( f : | | uo. ha 2 
i fo apr “-pasition at whan DESC1 becomes 
{ a 2 | eligible for comparison in | 
{ i 4 EenyeccEyon with the AFTER. FLAG 
{ { ac fs : | 
i t © O=BEFORE 
i 1  LSAFTER 
{ i - | 
i “- 0= ELIGIBLE 
| MELTS ERLE, 
i 
— 0= smore entries 


lslast entry. 


i ei a a a a a a ol ita ili ble a lal RE ig ER AS ia gia aR 
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INSPECT. 


aIetrras 
x INSP * 
ek kkkhik 
OP: 52 
Formats 


smevelesacaas taneakesieeen 
* INSP Vs» CADORI» DADDR2 «* 


RERKKEARKKKAERAEAKEKEKK ARK KE 


Function: - 


wepeek the source field moaed ied: at DADDR2» tatlyings if V=0- 
or. replacings if V=l» a variable. number of 8-B1IT character(s). 
The Location of the character(s). to be tallied or replaced and 
the location of count. field or replacement string is specified in 
the Inspect Table labeled by DADDR1.. | | : 


“Eligibility of an entry is established as. follows: 
ie) If INELIGIBLE. FLAG= le this entry is ineligible. 


i If AF TER« FLAG= 0 and the ‘current character wosteiaw “42 not 
less than ELIGIBLE-POSITION» this entry is no tonger 
eligible and it is made ineligible SLE nane the entry ts 
eligibie. | 


| 3. If AFTER- FLAG=1_ mania: ene: current character position is Less 
Ps than ELIGIBLE. POSITION? this entry is mapper otherwise 
anne eOrey is Rah ok lakes i ee 


i. When Looking for a match and the number of characters left. 
in the source is less than the size of the data item 
| pees DESC this entry: is made ineligible. 

“Notet, “An entry ais. nade Seve by setting INELIGIBLE. FLAG= Le 


The. comparison. “eperation. to. determine the occurrences of the 
SPerenee., to 8: tallied or. veplaced occurs as” follows: So! | 


ELKROUGHS CORPORATION = = “% se COMPANY. / CONFIDENTIAL 
COMPUTER SYSTEMS GROUP on 81800781700 COBOLTS eee. gee 


be 


2a. 


eats wae 


‘ane eres in. eine. INSPECT. TABLE are. considered in the ee. 
. In which. they are specified. 


If the entry is eligibles DESCI is ‘atiehesin tatbess tT: 
number of contiguous characters» starting with the leftmost 
character of the source field. a | re ae 


If no match occurs or if the entry. is ineligible» the. 
comparison is repeated for each successive entry» if any» 
untit etther a match is found or there is no next successive 


entry. When there is no successive entry» the character 


position immediatety to the right of the Leftmost character. 


position considered in the last comparison cycle. is 
considered as the leftmost character positions and the 


comparison cycle begins with the first table entry. 


Whenever a match occursy tallying or reptacing takes place. 


The character position immediately to the right of the 


rightmost character position that participated in the match. 
is now considered to be the leftmost character position of. 
the source tield and the comparison evel? Starts again with 
the. first tabie entry. 7 | 


The comparison ‘operation continues until there are no 
eligible entries in the table or until the rightmost 
character position of the source filed has participated in a 


match or has been considered as_ the leftmost character 


positione When this occurs» the inspection is terminated. 


NOTES 


It is intendec that this process be interruptabie at the. 


beginning. of the cycles INSPECT.POINTER is the first 24 
bits of the Inspect fable used to save and restore the 


7 Pounter | into the source ‘fietd in case interrupt OCCUrSe 
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A detailed description of the inspection cycle is Pyne 
ae ee current position P= INSPECT. POINTER. | 
2%.*° caine. to. the first, entry in the Inspect Table. 
ne Si the entry is inetigibles go to step 3 
4. Do the following according to the contents of FLACs 
ae If FIRST 1s specifieds Look for. a match. | 
If a Baten as not found go to. step. Se 


If a match is founds make. the entry ineligibles tally 
or replace and go to step 7. | 


be If LEADING 1s specifieds make the entry ineligible. 


ec; (AFTER«FLAG=0 AND p NOT=1) OR. CAFTER. FLAG= 1 AND OP 
NOT=ELIGIBLE POSITION)» go. to step 3 « | 


Look for a match. 
 <Ifia match is not founds go to step Se 


if a natch: 1s founds tally or replace contiguous 
occurrences of DESCL and go to step Ve 


Ce aif ALL ts See rived: look for a matche 
Ifa match is not founds. go to step 5 _ 
= a match 1s founds tally or replace and go to step 7. 


de If. CHARACTERS | is specified tally or replace and) go to 
step 6. | — | | | 


5% Get the next table entrye If there is a next entry go to _ 
Uf INELIGIBLE «FLAG= 1 for atl ‘the table entriess terminate — 
the PEOCES* | | ye th co —_ 

be Increment r by fet, : 


7. If P is: greater” enaaL the size of the _ source strings 
terminate. the processs otherwise 9° to. step cen | 


aarti 


yierrmmalnnc tate hat atntinole searreeketaae EA RAR ANNA REE SM RIPE OE EES An ER SEIS RA SRR A a SER aN SET RR tN A SAE OE Pe ae EE Te ST ET wat sme a 
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STRING 
Serr ae 


* STRI « 


tek kkkkhk 


Formats | 


“Aedasesennanenesaaenasnasasesssesansteasinnes 
‘* STRI Z» CPNCir CADOKR1» COP1, OPNO2» BADDR * 


nek eek ht fe fe A fee te ATOR Te fe fe Tie AO Ri tft tote te he & 


Function: 


Move” a eaedeb ia nuabee ai 8° bit pharaevens: from the source Fieve: 
denoted. by OPND1 to. the. destination field specified at DADDR1. 
using the value specified in COP1 as a character offset into the 
7 Sane aT eer Z indvea tes noe OPNO2 is to be used? — 


O=OPND2 is ‘oie # of characters to move | 

-1=OPND2 is the delimiting character(s) 

2=OPND2 is omitted = the &@ of characters - 
to move is the size of OPNDL 7 


BADOR specifies the next statement if overflow Occurs. 


An overflow condition. is caused if at anytime during execution 


the value in the pointer field is less than one or greater. than 
the size of the destination string. | 


Lf an overflow condition exists» ‘the operat ion is ‘terminated and 
the next instruction address is obtained from BADDR. ; 


The transfer of data is governed. by the following rules? 


1, Characters are ‘moved. from the - source | field ‘to the. 
destination field in accordance with the rules for ‘nova’. 
Alphanumeric CMVA) except that no space fill will be. 
provided. The contents of cOP1 are incremented by one aes 


each - character transferred. 


2. LE =O saiatuiy ude eaeabde onic’ ak 1k sean e 
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source field is  peuchons., or until the nuaber od characters | 
specified by GPND2: are. transferred. 


If V=1> ‘ehacacters. are trans ferred until — the end of the 
source field is reached» or ‘until the delimiting © 
character(s) specified by OPND2 are. encountered. The 
delimiting character(s) specified are not transferred. 


the rise i li aa AR ei daichii SS a hi Si Sis lies athe Serra at eel a esta atatid Stata eae em pst alah sk dada sa Su aus wha mse! Spec GS oa Sata ital elle pata aa 


Function: 


DELIMITER. TABLE« ENTRY C58) 
LAST-ENTRY=FLAG ALL-FLAG DESC1 FILLER 
© © | (1) . €64)  — C2) 
‘ -—_ mm fm a oe on ee 9S ee eR ch ma A a Them a OO an 8 mm GS an a ome, a Teas - 7 a _ a 
\ 4 ee (me unused — 2.) we Ss a 
se on delimiter descriptor 7 
ot aba Os =more ct cies 
on ae ‘Last entry . 
ta Paso a> das? 
oe 0= ieaauter occurrence of detimiter. | | 
1s all occurrences. of delimiter treated as one 
| 


“ BuRROUG HS CORPORATION poo. ee — COMPANY. GaweroewTiAL. 
— COMPUTER SYSTEMS GROUP 81800/81700 COBOL74 S“LANGUAGE. 
ae BARBARA PLANT ae a3 Bot 4a ¢ Psa 2222 3069 BS 


DELIMITER SETUP | 
. weeewee. 
* OLIM *— 


kaekkkhk kk . 


Format: 


Pererrrreererrrrr tre Tere r ess" 
* DLIM Vie V2> DALOR1I» COP1. * 


REKRKEKKKEKKEHRKEKEKEKEHEKKKKKKEKRKK EN 


Build a delimiter table entry at the location specified by 
CADDRI. Vi=1 specified that this is the last entry. V2=1 
indicates that ALL was specified. CUPL is the delimiter. — - 


ine. tabte used. ye the. Unstring 5” operator contains a variable 
nuaber of entries with the colo: ‘oCeHav: ‘ . | 
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When Z=15 DADDR3 sueede ses the location of the schiea tds Tabte | 
and the i ) comparyson cycle cccurs? 7 . 


le “The entries “ae the Delimiter Table are considered in the 
order in which they, are ‘specified. 


Ze The detimiter is “compared against an equal number of 
characters af the source field» starting with the teftmost 
character. | | | | | a 


3. 6&mIf no match cecurs» the comparison is repeated for each 
) successive entrys if any» until either a match is found or 
there is no next successive entryse When there is no 


successive entry» the character position immediately to the 
right of the. leftmost character position considered in the. 

fast comparison cycle is considered as the teftmost 
character positions and the comparison cycle begins with the 
first table BeOS a: | | 


4. Whenever i: | match occurse examination stops and the 
_ comparison cycle is. cis Cone TRueds: : 


~S. The comparison operation continues anette there are no more 

entries in the table or until the rightmost character 
position of the source field has participated. in a match or 
has been considered as the leftmost character position. 
When this occurs» examination is terminated. 
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UNSTRING 


khkknens 
* UNST * 


eae eK Kaa 


Format:. 


Srerrrettitiirtttittt teri ttt it str tte sr ttt 
* UNST Fe Me Ze C» Je BADDR»e DADDR1I» COPI>» 
* DADDR2». CPNDi»s CADDR3» COP2» COPS». DADDR4 * 


eH KR EKER EMME KERRIER RARER ARERE 


Function: 


vove a variable Pr re of g- bit characters. from. the source field 
specified at OACCRLI to the destination field denoted by COP1 


using the value ppecunsod at DADDR2 as a ener oeeen oma weet into 
the source field. _ | nh 4 


Any of the following situations causes an overflow condition: 


Shs f= 2 ae f= 3 and he value in. the pointer: field is toee than 


con or greater than the s1ze of the source ou tees 


2- 2=0 and the Patue: in OPNDI is less than one or greater than 


the size of the source string. 


a Upon ‘eoupletien of the operation» F=1 or F=3 and either of. 


the pene occurs: 


ae ‘The source field contains characters ‘that have ‘not been 
a (examined. | | 


be a= =O. and ‘thet HUMber of characters. ceanstekeed: is less — 
a than, the. number of characters spec ried by OPND1. 


If an over flow conaition exists ‘he operation is terminated cand 


the next. instruction address is obtained from ee00Re. 


BURROUGHS CORPORATION COMPANY. CONFIDENTIAL 
COMPUTER SYSTEMS GROUP © oo B1800/81700 COBOL74 S“LANGUAGE © 
SANTA BARBARA PLANT me © te | - PeSe 2222 206? CB). 
Ly The transfer of data is governed by the following rules: 
ie The string of. ‘source characters is examined beginning with. 
the celative character Peer en in the pointer field. | 
2. The number of characters examined is ‘deter sined as follows: 
_ ae If Z=1» the examination proceeds left to right until 
a either a delimiter in the Delimiter Tabie specified by 
DADOR3 is encountered or until ne end of the string is 
encountered. | | | | 
If the end Ge She string is encountered before the 
delimiting condition is met» examination terminates 
with the last character to he examined. | 
If two. re er deliniters: are encountered» the 
number of characters examined is. zeroes | | 
De If Z= “2p the number of characters is the size specified 
by COP1. | : . | | | | 
 3-e The characterss: thus examined» ee to the destination 


field as foiiows:? 


ae If C= 0» the characters: are moved in accordance with the. 
3 rules of the Move Numeric CMVN) Soper ator. | 


If the. ‘number of characters to be moved is zero» the 
| destination field ts prea rar, 


be If. c= 1» the. mispaeters are moved in secordance with the 
rules of the Move Alphanumeric. CMYA) S~operator.. 


If Jel, the characters are moved right~justifieds : 


If the amen of chamacters: to be moved is zeroe the. 
destination field is “space~ fitted. — 


Le if the delimiter receiving field is presents the delimiting 
| character(s) are moved to it in accordance with the rules of | 
the Move Alphanumeric (MVA) | S“operator. If the detimiting 
— condition is the end. of the strings then. it is space-filled. 


Se If the count field) is sreceatn the number of characters | 
| examined is moved to it in pECeC Sane’: with the eutes of the 
Move Numeric CMVN) proper econ: _ 


6. If the tallying fieta as presents one is added to its © 
-. contents in accordance with the cules of the Increment By 
One CENGe? 5° a : . | 2 as, | gee 
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rf z= 265.2 ae 2 cor the. Pere ‘condition is the end of the 
strings the pointer field is set to point to the character — 
to the. Fight of the last character transferred in step 3. 


If Z=1+ the pointer field is set as follows: 


dates If the ALL. FLAG=0 for the. matched delimiters it points 
to the character to the right of. the delimiter. — 


be If the ALL.FLAG= 1 for the matched delisiter> the erin | 
is examined for contiguous occurrences. of. the delimiter. 
and it points to. the au of the last such occurrence. 
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INTERPROGRAM COMMUNICATION 
‘IPC DICTIONARY 


KekaEaANRRR 


* IPCD * 


kahtkhehhe 
Formats 


KRKRERRKEKAEKAKAEKKEKAAKS 


* IJPCD ¥ COP BADOR * 


RAREREKEAKKRAEKRRKEKEARE 


Functions 


(C The execution of this ‘Sop results in the construction = and 
: insertion of an 80-bit System Descriptor for the COP in the | 
IPCeDICTIONARY at the displacement address specified by V. The 


base address of the IPC. DICTIONARY is: adjacent to the program's 
RSN and can be found in RSe«IPC. DICTIONARY. SPACE as an absolute 


address. | The BADDR contains. the address of the first IPCD Sop. 
which references an operand that ties in an overlayabie data 
segmente This. address 1s required by the interpreter when 


checkerboarding has occurred and a necessary data segment does 
not fit into dynamic BeROrY: without overlaying another POaegS 
data segment. | . | | | | 
. 7 : ? 7 | ae 
The Inter=Program Communication CIPC) Module provides a facility 
to transfer control from one program to another and the ability 
for both programs to have access toa the same data items. 
Language is not a barrier in IPC. The. names of the programs to 
which control is to be passed may or May not be known at compile 
time. Additionallys this module provides the ability to 
determine the availability of memory for the program to which 
tontrot is being passedes : ee g "=e % 4 Ww 4% _ 4 


The definition ae a trun unit® is critical to the. Gapteucntanien 
of the CALL/CANCEL mechanisa described in the. ANSI Standarde The . 
beginningwof-job- (BOJ) of any program via an EXecute does not _ 
establish a run unite (Arun unit is established only when an 
EXecuted. program initiates another program (BOJ) via the CALL © 
communicate. That CALLed. program is now a member of the run unit. 
associated with the program. that. Was. originally | EXecuteds 
Likewise» any program CALLed by a eeogee within the run unit 


semnepsoemnscacina tenga Seiten BEE 
coset eennriianerlcnceninint 
secnveesnrertncttee " 7 


a 


ee 
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‘becomes. part. of that run unit and remains in. that. run tana t: unerte. 
‘terminated or CANCELLed. A job cannot be a member of more than 

one run unite — The following figure represents seven PU eatons 
Ae G) which have bean catled within a run Maes: | “ 


CA was aE 


A 
pe | ie O° <a 
| <*\***" Current Path — 
Previous “*7"7> [2 N. 
Path a tf pee = c, 
7. e | 
; £ 


The connecting links are generated om and represent the dast used 


Fath» and the Link exists untit a return CEXIT PROGRAM) is. 
accomplished. Once a CALLed program has been exited (D> Fo Go 
it remains suspended in its current state. The. — path that vs) 


of interest is the path. Last. traversed. 


The current path is important: in order to eneek’ the validity of a 


CALL or CANCEL pick Lae program may not call or cancel | 
itself or any of its. predecessors. The other links are | 
unimportant. as any. progr an in the run unit can. cali or delete 


other existing programs (with the © Brey eusiy, mentioned 
+ eee kvens? or can call new programss “i a a ar ee 


ies for examples “program ret ‘cancels program. Dt, then the cun 
unit. consists of all of the fodlowing prearans and appears” as? 


tice 
Programs 
Fe G. 


i ee ee i 


ae 
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A call to any of these programs results in a transter of. control 
to the existing state» whereas a calt to any other progran 


Cincluding '0") causes an initiat state copy to be invoked before 
control is transferred. The termination (via STOP RUN or ABORT) 


of any program in a pierre a results in the removal of ait 


prograns in that run unit: is Ce 


The calling program may specify one or more data items to which 
the calted program has access. The shared data may be any O1 or 
77 tevet item (including items whose addresses have been received 
through a CALL) described in the caliing programe The data items. 
may be named and defined differently | in each program. 
Additionathy» storage for the shared data is never allocated in. 
the catlied program: the address is he passed to. the called 
programe 3 


The IPC. DICTIONARY is a. rat of SYSTEM. DESCRIPTORS built by the 
program to describe the parameters to be passed with a CALL. 
This dictionary is within the space defined by RS»IPC.DICT in the 


RSeNUCLEUS of the CALLing programe The length of this dictionary 
is passed in the CALL communicate. The MMCP verifies that the 
number and length | of parameters passed match the 
IPCePARAMETER. LIST of the CALLed programe | | 


The IPC. PARAMETEReLIST is. a series of 24° bit fields that contain 


the tength in bits of. the. parameters required for a given 
programe The original copy 1s generated by the compiler and 
resides at the end of the code file. The MCP can Locate this 


‘list through a 24-bit field in the Program Parameter Block (the 
PROG»IPC.PTR | contains the relative disk address jin the code file. 


of the IPC.PARAMETER.~LIST).. The number of entries in the list is 


obtained from a 16-bit field in the PP8 CPROG.IPC.SIZE). After 


the program has been successfully called»s the IPC.PARAMETER.LIST 
is appended to the RS-NUCLEUS Cand the first element contains the 


number of entries) in order to facilitate future calls on this 
‘program. | | (> mo 4 7 


After the MCP had verified that the number and tength of 
parameters are correct» at updates this field to allow access to 
the shared data. The interpreter uses this field just as it 
would use the address of a Data Dictionary» that is» to obtain 
the absolute address of the IPC. DICTIONARY. : | ole A ee 
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“Catling. program with oe  Cablked program 
‘Shared and ‘Segmented Data ae: wee os ie 
| BR | J eo! Soe ee BR aa 
Coa eke i ee eee a ee er eh ee | t) 
. t STATIC MEMORY ¢t.. ee ot 
\ssssessssssssssacsf oo STATIC. | 
ar res i. “eS. me MEMORY 1. 
DYNAMIC a 4 “eta a 
ae | MEMORY oo 1a 3 ae | 1 
| 7 ee a y 
eee ee eet "  LRi wwewascceemmawmmams | 
i--<1RS.IPC.OICT. SPACE 1 In=eae="=<IRSsIPC. DICT = 
4 (mea tetescsremerenn] fT M@<ERSSTPCOPARMOLIST Of 
ff DATA DICTIONARY £ (tb fewmmnewseseseewmeny | 
bls gleresrs nee eo se nahh a heed EEGs PARARALIST De 
in Selae te +8 ipeeee e* « ia ee aeee ot 
| IPC DICTIONARY 1 aes weer en wenn en enne 
7 - 3 ese _ i To Oe fee 


a: RARE anawan waa 


Accessing shareaq data should be aiesse identicat to accessing 
segmented data.” Qne difference is that the reading and writing | 
takes . place outside the program’ Ss base=to-limit area and 
therefore» the basewtimit check must be inhibited. | This implies — 
that any COP for a parameter must have a flag CSHARED.DATA.} FLAG). 
which suppresses the base~timit test and indicates that there is. 
a following 10-bit field ~CIPCD. INDEX) which | supplies an index 
anto the IPC.DICTIGNARY. ° With the absolute address obtained from 
the IPC. DICTIONARY» the interpreter can phere as. if it had an 


absolute address for a normat data. item. 


eat ‘execution of ne? S- op results. ‘the: construction and 


insertion of an 80-bit System heerticae for the COP in the | 
-IPCeOICTIONARY at the displacement address specified by WV» The 


base address of the IPC.DICTIONARY is adjacent to the. program’ 5 
RSN and can be found in KS-IPCeDICTIGNARY.SPACE as ane absolute 


addresses The BADDR contains the address of the first IPCO S"Op 
which references an operand that. lies in an. overlayable data 
segment. This address. is required by the interpreter when | 


- checkerboarding has occurred and a necessary data segment does 
not fit into dynamic Senet! without evectay in another Rca 
data seqaent. - | _ - 
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INDEX © 


ACD 3°8 ee 

ADD THREE ADDRESS 3-8 — 

ADD TWO ADORESS 3-10 

ALTER 3744 | = | 
ALTERED GO TO PARAGRAPH 394s 
ALTR 3-44 Be 


ARITHMETIC 3-1 


ARITHMETIC OPERANCS AND INSTRUCTIONS 5 6 


BINARY SEARCH ASCENDING HIGH — 3-63 — 


BINARY SEARCH ASCENDING LOW s°6c: 


BINARY SEARCH DESCENDING: HIGH 3-65 
BINARY SEARCH DESCENDING LOW 3-64 

ROFL 3°36 Ps 

BRANCH ON OVERFLOK 3- 36 CO 

BRANCH UNCONDITIONALLY © 3-35 

BRANCHING 3-2 fe 7 
BRANCHING OPERANDS AND INSTRUCTIONS: «3934 


BSAH 3-63. 
BSAL 3-62 

BSDH 3-65 © 
aSDL = 3-64 
BUN 3-35 

CAT 3*24 


CHARACTER STRING HANDLING  3-3- 


CHARACTER STRING S-OPS. 3-66 


CMPA 3746. 
CMPC 3-50 


CMPN 3-47. 
CMPR 3-51 
CMPS 3-49 
CMPZ 3-48 


COBOL PROGRAM LAYOGUT CFIGURE 1-1) 1°2. 


' COBOL74 INLINE DESCRIPTORS ee 
COMM 3753 - A | 
GOMMUNICATE 3- 53 


— COMPARE are amaneare Baie 
COMPARE COLLATE 3°52 


COMPARE FOR CLASS 3-50 


- COMPARE FOR SPACES 3°49. 

COMPARE FOR ZEROS 3-48 
‘COMPARE NUMERIC 3°47 © 
COMPARE REPEAT 3°51 


COMPLEMENT CHECK PROTECT © 3-33 
CONCATENATE 3-246 


CONDITIONAL BRANCH OPERANDS AND INSTRUCTIONS 3-450 
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| CONDITIONAL BRANCHING 3-2 
| CONTAINER sTZe eg Sy 
CONV 3-57 | a 
CONVERT 36 57 
6 CCP. AND OPNO ae oe 

CPA 3°4 | aes 
cPc. 34520 

CPN. 395 

GPa (3-5 


DATA LENGTH 2-2— 
DATA MOVEMENT 371. | a =. 
DATA MOVEMENT OPERANDS AND INSTRUCTIONS 3°17 
DEC 3°11 | 4 
DECREMENT BY ONE 3-16. 
DEC1L 3-16 | a 
—OELIMITER SETUP 3°74) | 
CEPENDING ATTRIBUTES 2-3 
CEPENDING“FLAG 2-3 
DESCRIPTOR SETUP 3766 
DISPLACEMENT 2-6 — 
DIV 3713 0° 
CIVIDE 3-13 | oo oe _ ee ee ee 
 PIVvIoe SPECIAL cle by ene ae 8 oe a ee f° * @ an 
DIVS. 3-14. : aes _ _ poe AGE gs tig a 
—DLIM 32740 0° #28 43 “se ee> ; ps.  * a ee 
DSET 3°66. a 7 : | : : | ee 


EDIT 3-260 | YP 
EDIE. INSTRUCTIONS. AND EDIT _MECRO OPERATORS 3-25: 
EDIT MICROTOPERATORS 3728 © | 
€crr WITH EXPLICHS MASK 3° a 
EDTE © 3-27 
END FLOAT MODE 3-32. 
END NON@ZERO 3-33 
END OF MASK 3°33 
ENTER 340 
EXIT 3-41 


FILE STATUS 3°60 
FILL SUPPRESS = 3-31 
‘FIST 3-60. 


6G fo DEPENDING — Bm2 
GOTO 3-42 bas 
GPAR | 3-43 


eee i MONITOR 3559 
RMON 37590 


~ TMPLEMENTATION STRATEGY 2-2 
INC 3°55 3-100 

INCREMENT BY ONE = 37150 
INCL. 3*5+ 3 1s - 
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INSERT FLOAT 3-320 
INSERT ON MINUS = 3-31 


INSERT SUPPRESS 3-32 


INSERT. oe 
INSP) 3°69 . ae 


INSPECT 3°69 | 


INSPECT SETUP 3- 67> 
INSTRUCTION. SET 3d et 
_INTERPROGRAM COMMUNECATION 3-4, 
CINTRODUCTION = im 6 
‘IPC DICTIONARY 3-79 
-EPCD 3°79 


LOCR 3°54. 


LITERAL-FLAG 2-20 
LOAD COMMUNICATE REPLY 3-54 


MAKE. PRESENT 3-58 - 
WAKP 39°58 


MISCELLANEOUS 3-3. 


WISCELLANEQUS INSTRUCTIONS. : 3 “53. 
MODIFIED INLINE CCP ENTRY FORMAT 
- MOVE ALPHANUMERIC 3- ce 


MOVE CHARACTER 3-30 
MOVE DIGIT 3-30 
MOVE NUMERIC 3-21. 


ROVE SPACES 3-20 
‘MOVE SUPPRESS — 3°30 


MOVE ZEROS 3-23. 


MULT «= 3°12. 


MULTIPLE-ENTRY- FLAG ere 
MULTIPLY 39120 © | 
BVA 3°52 3°18 

MVN 3°55 3-21 

MVS) 3-200 0—— 

wVZ 3-59 3-23 


NTR 3- ON, 2 ts | 
OPTIMIZED. oP. coves eoyaiea 


PERF 3-38. a 
PERFORM ENTER 3°38 | 


PERFORM EXIT el 39390 
PROGRAM a tae 


Pru ag (3039, 


$- INSTRUCTION FORMAT ise 
— S*LANGUAGE PROGRAKS 1-1) 
STOPERATORS = 1-4 

- SEGMENT NUMBER 2-6 9 °°) 
SET OVERFLOW TOGGLE Pi ae 
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 SHARED- DATA=FLAG eee oe 
SKIP REVERSE DESTINATION 3-31 


STRING 3°72. 
sua O39 


— WTCR 356 
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Oop AURA eat” &, So = 48 
SPECIAL REGISTERS CFIGURE 4: 2) re Vt ae 
— START ZERO SUPPRESS 3- ae a | 
 StRiI 3- la FS 


— SUBSCRIPT= FLAG. 253 

— SUBSCRIPTING 2-4 9. 
SUBTRACT THREE AQCRESS  3- a 
“SUBTRACT TWO ADDRESS = 3711_ 


UNST 3-76 
CUNSTRING = 3-76 
WAIT COMMUNICATE REPLY 3°56 
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